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INTRODUCTION 


The  KM  IK  smoke  obscuration  model  has  been  described  in  an  earlier  report.1 
The  algorithm  has  been  developed  from  well-known  and  easily  used  principles  of 
micrometeorology,  atmospheric  optics,  turbulence,  and  diffusion.  The  general 
approach  for  formulating  the  model  is  based  upon  a  study  by  Downs2  for  the 
atmospherics  optics  portion,  Gaussian  plume  and  puff  hypotheses  as  discussed 
by  Gifford3  and  Pasquill,4  and  atmospheric  stability  criteria  extracted  from 
Pasquill,5  Turner,6  and  Smith.7 

The  KWIK  algorithm  is  designed  to  calculate  munition  expenditures  for  finite 
screen  lengths  and  times,  based  upon  ambient  meteorological  conditions,  as  a 
function  of  the  optical  pathlength  from  observer  to  target.  The  diffusion 
portion  of  the  model  treats  both  semi -conti nuous  point  source  plumes  and 
quasi-instantaneous  point  source  puffs.  Chemically  generated  military  smokes 
considered  are  hexachloroethane  { HC )  and  bulk  white  phosphorus  (WP). 

Munition  expenditure  estimates  are  presented  in  terms  of  the  following 
parameters: 

Weapons  system/number. 

Screen  length  in  meters, 

Screen  duration  in  minutes. 

Rate  of  fire  (in  rounds/ minute) , 


1  Urns  tea  d,  R.  K. ,  R.  Pena,  and  F.  V.  Hansen,  KWIK:  An  A1  gori thm  for 

Calculating  Munition  Expenditures  for  Smoke  Screening/Obscuration  in  Tactical 
Saturations,  AJL-Tft-0030,  US  Army  Atmospheric  Sciences  Laboratory,  White  Sands 
Missile  Range,  NM,  1979. 

2Downs,  A.  R.,  A  Review  of  Atmospheric  Transmission  Information  in  the  Optical 
and  Microwave  Spectral  Regions,  Report  2710,  Ballistic  Research  Laboratory, 
Aberdeen  Proving  Ground,  Md,  1976. 

3Gifford,  F.  A.,  Jr.,  "An  Outline  of  Theories  of  Diffusion  in  the  Lower  Layers 
of  the  Atmosphere,"  Meteorology  and  Atomic  Energy  (D.  H.  Slade,  ed),  US  Atomic 
Energy  Commission,  Washington,  DC,  1968. 

4Pasquill,  F.,  Atmospheric  Diffusion,  2nd  Ed.,  Halsted  Press,  Division  of  John 
Wiley  A  Sons,  New  York,  19/4. 

5Pasquill,  F.,  "The  Estimation  of  the  Dispersion  of  Windborne  Material," 
Meteorol  Mag,  Vol,  90,  1961. 

6Turner,  D.  B.,  "A  Diffusion  Model  for  Urban  Area,"  J  Appl  Meteorol,  3:83, 
1964. 

7 Smith,  F.  B.,  "A  Scheme  for  Estimating  the  Vertical  Dispersion  of  a  Plume 
from  a  Source  Near  Ground-Level,"  1973  (unpublished  Meteorological  Office 
Note) . 
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Impact  separations  from  adjustment  point. 

Number  of  rounds  to  establish  screen. 

Number  of  rounds  to  maintain  screen,  and 
Total  expenditures. 

The  KWIK  algorithm  is  available  in  eight  versions: 

HP  9830A  with  printer  output 
HP  9825A  with  printer  output, 

HP  9825A  CRT  version, 

Fortran  IV  version, 

HP  85  with  printer  output, 

HP  9845  with  printer  output, 

HP  9825A  volume  of  fire  table,  and 
APPLE  II  version. 

All  the  algorithms  except  the  volume  of  fire  table  version  are  very  similar. 

The  specifications  of  the  storage  medium  required  by  each  computer  that  uses 
the  KWIK  algorithms  are  as  follows: 

(a)  The  HP  9830A  uses  a  Hewlett-Packard  digital  cassette  number  9162-0050 
or  equivalent.  The  data  or  program  storage  capacity  is  64,000  bytes.  The 
information  on  the  cassette  tape  may  be  protected  by  removing  or  sliding  both 
tabs  to  the  top  of  the  cassette  so  that  an  opening  at  each  end  is  created. 

(b)  The  HP  9825A  uses  a  Hewlett-Packard  tape  cartridge  number  9162-0061  or 
equivalent.  The  tape  is  structured  with  two  tracks  (0  and  1),  which  may  be 
used  to  store  programs,  data,  and  instructions  for  special  function  keys.  The 
storage  capacity  of  the  tape  cartridge  is  225,000  bytes.  To  prevent  erasures, 
the  record  slide  tab  must  be  in  the  leftmost  position. 

(c)  On  the  UNIVAC  1108  or  equivalent  (FORTRAN  IV  Version)  the  KWIK 
algorithm  may  be  stored  on  standard  IBM  computer  cards,  card  image  mass 
storage,  or  magnetic  tape  units  compatible  with  the  computer  being  used. 

(d)  The  HP  85  and  9845  use  the  same  tape  cartridge  used  with  the 
HP  9825.  Programs  are  stored  in  256-byte  physical  records.  The  maximum 
number  of  bytes  per  record  is  32,767. 

(e)  On  the  APPLE  II  a  5-in  floppy  disk  (capacity  931,000  bits)  is  used  to 
load  and  store  the  KWIK  algorithm.  An  APPLE  computer  with  APPLE  Disk  II,  DOS 
Version  3.2.1  is  used. 
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USER'S  INSTRUCTIONS 


This  section  of  the  user's  guide  is  divided  into  eight  parts,  to  provide 
instructions  for  calculating  munition  expenditure  estimates  for  the  eight 
versions  of  the  KWIK  algorithm. 

Part  1:  HP  9830A  Version 

The  algorithm  has  been  prepared  in  BASIC  language  for  the  HP  9830A 

programmable  desk  calculator,  which  must  contain  a  String  Variable  Read  Only 

Memory  (ROM)  and  a  minimum  of  3808  words  of  Random  Access  Memory  (RAM).  The 

KWIK  program  is  recorded  on  cassette  tape  files  0  through  3.  After  inserting 
the  cassette  in  the  loader  and  rewinding  the  tape,  the  first  file  (file  0)  is 
loaded  by  executing  the  command  "LOAD  0."  When  the  file  has  been  loaded, 
press  the  "RUN"  and  "EXECUTE"  buttons.  The  type  of  format  used  for  the 
required  inputs  is  query /response.  The  "EXECUTE"  button  is  depressed  after 
each  program  input  entry.  At  the  end  of  each  file  execution  the  calculator 
display  will  show  "LINK  (File  No.)."  The  "LINK  (File  No.)"  command  will  load 
the  corresponding  file,  conserving  the  values  of  the  parameters  in  common 

throughout  the  program. 

The  program  inputs  are  in  the  following  query/response  sequence: 

SITE  PARAMETERS 

(1)  Site  identification,  four  characters; 

(2)  Latitude,  in  degrees  and  tenths; 

(3)  Direction  from  equator.  North  (N)  or  South  (S); 

(4)  Longitude,  in  degrees  and  tenths; 

(5)  Direction  from  Greenwich,  East  (E)  or  West  (W); 

(6)  Altitude  above  MSL,  kilometers  and  tenths; 

(7)  Julian  date,  three  digits; 

(8)  Greenwich  Civil  time,  nearest  hour; 

METEOROLOGICAL  PARAMETERS 

(9)  Ceiling  height,  feet; 

(10)  Cloud  cover,  percent; 

(11)  Visibility,  miles; 

(12)  Precipitation  (Yes  =  1;  No  =  0); 

(13)  Ambient  air  temperature,  degrees  Fahrenheit; 
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(14)  Dewpoint  temperature,  degrees  Fahrenheit 

(15)  Wind  direction,  degrees; 

(16)  Windspeed,  knots; 

SCENARIO  PARAMETERS 

(17)  Average  roughness  element,  centimeters; 

(18)  Slant  range  to  target,  kilometers; 

(19)  Angle  (with  the  horizontal)  of  sight  to  target,  degrees; 

(20)  Direction  (from  north)  of  line  of  sight,  degrees; 

(21)  Smoke  screen  length,  meters;  and 

(22)  Smoke  screen  duration,  minutes. 

All  English  input  units  are  converted  by  the  program  to  the  metric  system. 
The  algorithm  also  calculates  the  relative  humidity  in  percent  and  the 
Pasquill  stability  category  (A  through  F). 

The  program  outputs  are  displayed  on  the  HP9866A  printer  after  the  execution 
of  each  file.  The  output  sequence  Is  listed  in  the  sample  computation  shown 
in  tables  1  through  5.  For  visible  and  near  infrared  wavelengths  the  munition 
expenditures  (impact  separations  for  initial  and  sustaining  volleys  for  the 
105-  and  155-mm  howitzers)  are  displayed  on  the  printer  for  HC  and  WP  smoke. 
The  mid  and  far  infrared  wavelength  expenditures  are  printed  only  for  WP 
smoke.  The  output  will  also  list  the  number  of  guns  required  for  initial  and 
sustaining  volleys,  the  rate  of  fire  in  rounds  per  minute,  and  the  total 
rounds  required.  The  number  rounds  required  per  60-m  unit  screen  length  are 
printed  for  the  mid  and  far  infrared  wavelengths. 

Appendix  A  lists  a  glossary  of  mnemonics  for  identifying  the  BASIC  language 
symbology  used  by  the  HP-9830A  KWIK  program.  Given  in  Appendix  B  is  the  BASIC 
program  listing. 

Part  2:  HP  9825A  Printer  Output  Version 

Th„  KWIK  algorithm  has  also  been  programmed  in  the  Hewlett-Packard  Language 
(HPL)  for  the  HP  9825A  programmable  calculator.  The  site,  meteorological  and 
scenario  input  parameters  are  identical  to  those  of  part  1,  with  the 
following  exceptions: 

(9)  Ceiling  height,  meters; 

(II)  Visibility,  kilometers; 

(13)  Ambient  air  temperature,  degrees  Celsius;  and 

(14)  Dewpoint  temperature,  degrees  Celsius. 
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In  order  to  execute  the  program,  the  HP  9825A  calculator  must  contain  the 
following  ROMS:  String,  Advanced  Programming,  and  General  I/O;  also  a  minimum 
of  23,228  bytes  of  RAM  is  required.  The  KWIK  program  is  recorded  on  data 
cartridge  track  0,  file  3.  It  may  be  recorded  on  other  files  of  track  0  or  1 
as  a  redundancy  backup  option. 

After  the  cartridge  is  inserted  in  the  loader,  the  program  is  loaded  by 

depressing  the  "LOAD"  and  then  the  number  3  or  by  typing  in  the  characters 
"ldf3"  and  then  depressing  the  "EXECUTE"  key.  Once  the  program  file  has  been 
loaded,  press  the  "RUN"  key.  The  query/response  method  is  used  for  the  input 
parameters.  The  "CONTINUE"  key  must  be  depressed  after  each  entry.  The 
program  outputs  are  displayed  on  the  paper  tape  printer,  integral  to  the  HP 
9825A  calculator,  in  the  same  sequence  as  shown  in  tables  1  through  5.  A 
glossary  of  mnemonics  appears  in  appendix  C,  and  the  program  listing  as 
appendix  D. 

Part  3:  The  HP  9825A  CRT  Version 

The  CRT  version  program  is  designed  for  solution  on  the  HP  9825A  programmable 
calculator  using  the  following  peripherals:  (1)  HP  1350A  Graphics  Translator 
and  HP  131 1A  Display  (CRT)  and  (2)  HP  9871  Impact  Printer.  The  input 

parameters  are  identical  to  those  listed  for  the  HP  9830A  (part  1). 

In  order  to  execute  the  algorithm,  the  calculator  must  contain  the  String, 
Advanced  Programming,  and  General  I/O  ROMs  and  a  minimum  of  23,228  bytes  of 
RAM.  As  in  the  HP  9825A  Printer  version,  the  algorithm  for  the  CRT  version  of 
KWIK  is  recorded  on  tape  cartridge  track  0,  file  3.  It  may  also  be  recorded 
on  other  files  of  tracks  0  or  1  as  a  redundancy  backup  option.  The  tape 
cartridge  is  loaded  and  the  algorithm  executed  in  the  same  manner  as  described 
in  part  2. 

The  output  of  the  KWIK  program  is  displayed  on  the  HP  1311A  Display  (CRT)  and 

the  HP  9871A  printer.  First  to  be  displayed  on  the  CRT  are  the  list  of  inputs 

and  the  calculated  stability  category  and  relative  humidity  value.  To 
continue  viewing  the  output  simply  press  "CONTINUE."  (The  calculator  will 
display  "CONTINUE  WHEN  READY.")  For  visible  and  near  infrared  wavelengths, 
the  munition  expenditure  data  (shell  spacing  for  initial  and  sustaining 
volleys  for  105-  and  155-mm  howitzers)  is  displayed  for  HC  and  WP  smoke.  The 
mid  and  far  infrared  wavelength  data  are  displayed  for  WP  smoke  only.  The 
output  will  also  display  the  number  of  guns  required  for  initial  and 
sustaining  volleys,  the  rate  of  fire  in  rounds  per  minute,  and  the  total 
number  of  smoke  rounds  required.  The  number  of  rounds  required  per  60-m  shell 
spacing  (for  105-  and  155-mm  howitzers)  are  displayed  for  mid  and  far  infrared 
wavelengths.  At  the  end  of  th6  displayed  output,  the  operator  has  the  option 
of  ending  the  program  output  or  printing  it  on  the  HP  987 1A  printer.  (The 
calculator  will  display,  "0  TO  EXIT  -  1  to  PRINT.")  Pressing  a  "1"  will  cause 
the  printer  to  print  the  same  output  displayed  on  the  CRT.  A  sample  of  this 
output  is  listed  in  tables  1  through  5.  Appendices  E  and  F  contain  the  HPL 
CRT  KWIK  glossary  of  mnemonics  and  the  HPL  program  listing,  respectively. 

Part  4:  The  FORTRAN  Version 

The  FORTRAN  version  of  the  KWIK  algorithm  is  programmed  in  FORTRAN  IV  language 
and  can  be  executed  on  most  FORTRAN  V  compatible  computers.  The  22  inputs  are 
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identical  to  those  described  in  Part  1.  The  format  for  all  input  parameters 
(IBM  card  or  card  image  input)  is  F10.0,  with  the  following  exceptions,  which 
have  a  character  format  (a  maximum  of  four  characters): 

(1)  Site  identification, 

(3)  Direction  from  equator, 

(5)  Direction  from  Greenwich,  and 

(12)  Precipitation. 

All  inputs  are  converted  by  the  program  to  the  metric  system.  The  algorithm 
also  calculates  the  relative  humidity  in  percent  and  the  Pasquill  stability 
category  (A  through  F). 

The  computer  output  is  displayed  in  the  same  fashion  as  shown  for  the  HP  9825A 
CRT  KWIK  in  tables  1  through  5.  Appendix  G  shows  a  glossary  of  the  FORTRAN 
mnemonics  and  appendix  H  contains  a  listing  of  the  FORTRAN  algorithm. 

Part  5:  HP  85  Version 

The  HP  85  desktop  computer  is  the  most  compatible  with  the  KWIK  algorithm.  It 
is  fully  integrated  (keyboard,  CRT  display,  CPU,  magnetic  tape  unit,  and 
thermal  printer)  in  one  small  package,  with  32K  bytes  of  extended  memory.  The 
KWIK  version  for  the  HP85  is  programmed  in  BASIC  language. 

The  program  is  loaded  into  memory  from  an  HP  200  or  equivalent  data  cartridge 
by  pressing  the  "LOAD"  key  and  then  typing  "KWIKO"  (or  "KWIK1"),  followed  by 
pressing  the  "END  LINE"  key.  To  run  the  program,  press  the  "RUN"  key.  The 
query/response  method  is  then  used  to  enter  the  22  program  inputs,  as  listed 
in  part  1. 

The  output  is  displayed  on  the  HP  85' s  own  4.5-in  wide  printer  in  the  same 
fashion  as  shown  in  tables  I  through  5.  Appendix  I  lists  a  glossary  of 
mnemonics  for  identifying  the  BASIC  language  ^ymbology  used  by  the  HP  85  KWIK 
algorithm.  Appendix  J  shows  the  corresponding  KWIK  BASIC  program  listing. 

Part  6:  HP  9845  Version 

The  HP  9845  KWIK  version  is  a  BASIC  algorithm  similar  to  the  HP  85  version. 
The  program  may  be  loaded  into  memory  from  a  mass  storage  device,  such  as  T15, 
the  standard  mass  storage  device  for  the  HP  9845.  Insert  the  magnetic  tape 
cartridge  in  the  T15  slot,  press  the  "LOAD"  key,  type  the  "KWIK  45"  file  name, 
and  press  the  "EXECUTE"  key.  To  run  the  program,  press  the  "RUN"  key,  and  the 
query/response  method  is  then  used  to  enter  the  22  program  inputs,  as  listed 
in  part  1. 

The  output  is  printed  on  the  internal  80-character  line  printer  unless  a 
"PRINTER  IS  select  code  [,  HP-IB  device  address]"  command  is  executed  from 
either  the  program  or  the  keyboard.  (The  select  code  identifies  the  type  of 
device  at  the  specified  address.)  Select  code  16  is  used  for  the  CRT.  If  an 
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external  printer  is  desired,  its  corresponding  select  code  and  HP- IB  device 
address  must  be  used.  Appendix  I  contains  a  glossary  of  mnemonics  for  the 
BASIC  HP  9845  algorithm,  and  append!,.  K  contains  the  corresponding  KWIK 
program  listing. 

Part  7:  The  APPLE  II  version  of  KWIK  is  programmed  in  Applesoft  BASIC 
language.  It  is  almost  identical  to  the  HP85  and  HP9845  versions.  The  APPLE 
Disk  II,  with  931,000  bits  capacity,  is  used  to  load  the  algorithm  in  the 
APPLE  computer  memory  (65K  bytes  capacity).  This  is  done  by  typing  the  words 
"LOAD  KWIK"  and  depressing  the  "RETURN"  key.  To  run  the  program,  "RUN"  and 
"RETURN"  are  pressed.  As  with  the  other  versions,  the  query /response  method 
is  used  to  enter  the  22  inputs  listed  in  part  1,  with  the  following 

exceptions:  (3)  North  =  1  and  South  =  -l,  and  (5)  West  =  1  and  East  =  -1. 

The  output  may  be  displayed  on  any  CRT  screen  or  printer  external  to  the 
APPLE  II. 

Appendix  I  lists  a  glossary  of  mnemonics  identifying  the  APPLE  II  BASIC 
language  symbology.  Some  minor  differences  between  APPLE  II  and  HP  BASIC  are 
noted.  Appendix  L  contains  a  listing  of  the  APPLE  II  BASIC  algorithm. 

Part  8:  Volume  of  Fire  Tables 

The  algorithm  that  produces  munition  expenditure  tables  is  programmed  (in  HPL) 
for  the  HP  9825A  programmable  calculator.  The  algorithm  requires  the  use  of 
the  same  RAM  and  ROMs  used  for  the  other  HP  9825A  versions  of  KWIK  (see 
part  3).  The  volume  of  fire  tables  algorithm  is  recorded  on  tape  cartridge 

track  0,  file  6.  It  may  also  be  recorded  on  other  files  of  tracks  0  or  1  as  a 

backup  option. 

The  tape  cartridge  is  loaded  and  the  algorithm  executed  in  the  same  manner  as 
described  in  part  2.  The  only  required  inputs  are  those  for  ambient 
tanperature  (degrees  Fahrenheit)  and  relative  humidity.  Seven  other 
meteorological  and  site  parameters  are  fixed,  but  can  easily  be  changed.  The 
choices  of  relative  humidity  input  values  are  15,  40,  and  80.  After  entering 
the  relative  humidity  value  (15  is  the  default  if  none  is  entered)  and 

depressing  the  "CONTINUE"  key,  volume  of  fire  tables  for  105-  and  155-mm 
howitzers  are  printed  on  the  HP  9871  Impact  Printer  for  HC  WP  smoke  for 

visible  and  near  infrared  wavelengths. 

The  tables  printed  for  HC  smoke  contain  seven  screen  lengths  ranging  from  200 
to  2,000m  and  duration  of  effective  smoke  screen  ranging  from  5  to  35  min. 
For  WP  smoke  the  tables  show  five  screen  lengths  ranging  from  100  to  600  m  and 
the  duration  of  effective  smoke  from  5  to  25  min.  Each  Pasquill  stability 
category  (A  through  F)  is  shown  with  its  respective  windspeeo  in  knots.  The 
munition  expenditures  (volume  of  fire)  data  are  computed  in  number  of  (105  or 
155-mm  howitzer)  rounds  for  quartering  wind.  Rounds  in  area  shown  as  $$$ 
exceed  rate  of  fire  of  weapon  or  battery.  Tables  6  through  8  show  samples  of 

the  output  produced  by  the  volume  of  fire  algorithm  for  HC  and  WP  smoke  (for 

7 2°F  temperature  and  15,  40,  and  80  percent  relative  humidity).  Appendices  M 
and  N,  respectively ,  show  a  list  of  the  algorithm  mnemonics  and  the  program 
listing  in  HPL  language  for  the  volume  of  fire  tables  version. 


ADDENDUM 


SPECIAL  NOTE 


Under  certain  atmospheric  conditions,  an  output  of  "0  rounds"  may  result. 
This  output  indicates  that  no  smoke  munitions  are  required  for  screening,  due 
to  such  conditions  as  atmospheric  absorption,  haze  and  fog,  or 
precipitation.  When  certain  versions  of  the  KWIK  algorithm  are  used  in  these 
situations,  a  warning  signal  may  be  encountered  as  the  computer  attempts  to 
print  the  output.  The  following  additions  to  the  indicated  KWIK  algorithms 
will  avert  such  warning  signals. 


HP  9830A:  Line  "455  L(I,K)  =  0"  on  file  3  (shell 
HP  85:  Line  "4975  L(  I,K)  =  0" 

HP  9845:  Line  "4195  L{I,K)  =  0" 

APPLE  II:  Line  "2765  L(  I,K)  =  0" 


spacing  -  WP  smoke) 


TABLE  1.  BASIC  INPUT  PARAMETERS  FOR  KWIK  ALGORITHM 

M  l  .l  N  [  T  1. 0  N  I  -  X  P  E  N  D  I.  T  U  R  E  S 
EUR  IIC  AND  WP  SMOKE 


TD  =  WSD 


LATITUDE 

•  DEG 

N  32 

0  0 

LONG  Y  1  DDL. 

-  DEG 

-  wins 

0  0 

ALTITUDE 

...  |<h 

=  i 

30 

Jl.lL  I  AN  DATE 

-■  DAY 

*  236 

71 .11.  U  TIME 

-■  HOUR 

=  IS 

IF  II  TNG 

~  METERS 

-  30  40 

0  0 

CLOUD  COWER 

PERCENT 

-•  20 

0  0 

.•'/ ST C<  FI.  JTY 

••  KM 

A  0 

2S 

ELI  C  1  PI TATJ. ON 

~  NO 

i  F.M'-'F  K  A  I'Ui-L 

-  DEG  c; 

=  22 

22 

1)1.0  POINT 

-  DI  G  C 

=  .10 

61 

WIND  DI RLE  1  TON 

deg 

=  27  0 

0  0 

WIND  SPEED 

-•  KNOTS 

=  IS 

0  0 

A  of:  ROUGHNESS  e 

I...L  men  V 

■  15  M 

«  7  A 

0  0 

PA SQUILL  STABILITY  CATEGORY  =  D 

IN'  I  AT  I  VC.  HUM  IDT  TY  » 


B  Q  .  0  3 


TABLE  2.  MUNITION  EXPENDITURES  FOR  VISIBLE  WAVELENGTHS 


v 1 G I BLE • 


ML- TIERS  MINUTES 

SCREEN  LENT;  I  II /DUE  AT  ION  .  400  iO 


H(.;  SMOKE  SCREEN 


1 05 MM  HOWITZER 


I 


\ 


'JOi..  LEY 

GUNS 

RATE/  SPACING 
MIN  METERS 

ROUNDS 

V.N  I'  TJ'Ai. 

1  V 

SUSTAINING ■ 

19 

OS  21 

9S 

155MM 

HOW  IT 

ZER 

UGLILY 

GUNS 

RATE/ 

SPACING 

ROUNDS 

MIN 

METERS 

I  Ml IIAL 

3 

:1.  38 

SUSTAINING 

3 

0.5 

138 

15 

1  WP  SMOKE  SCREEN 

k 


105MM  HOWITZER 


'JOI.  1.  CY 

GUNS  RATE/ 

SPAC (NG 

ROUNDS 

MIN 

MITERS 

INITIAL.  • 

S 

90 

SUSTAINING : 

S  3  0 

90 

ISO 

1SSMM  HOWITZ!  R 

'JOI  LEY 

GUNS  RATE/  SPACING  ROUNDS 

MIN  METERS 

IN  1  f  I'AL 

;»69 

SUSTAINING ; 

2  3.0  269  30 

5 


30 


TABLE  i.  MUNITION  EXPENDITURES  FOR  NEAR  INFRARED  WAVELENGTHS 


'!  it-’  1  < 

METERS  MINUTES 

SCI?!',  N  I  NGTt  I  /  ft>  IP  A  (  ION  400  10 


HC  SMOKE  SCREEN 


1  OS  MM 

HOWTT/CR 

VOLLEY 

GUNS 

RATE/  SPACING 

ROUNDS 

MIN  METERS 

.I  N  I  1  IAL  : 

5  0 

8 

SUSTAINING ; 

-  50 

OS  8 

250 

j.  5SMM 

HOW  IT 

ZER 

VOLLEY 

GUNS 

RATE/ 

SPACING 

ROUNDS 

MIN 

METERS 

INITIAL  : 

a 

52 

SUSTAINING ; 

8 

>.)  .  S 

52 

40 

WP  SMOKE  SCREEN 


105MM  HOWITZER 


VOLLEY 

GUNS  rate/ 

SPACING 

ROUNDS 

MIN 

METERS 

INITIAL  ; 

6 

77 

SUSTAINING 

6  3.0 

77 

180 

15SMM  HOWITZER 


VOI.  L  1-  Y 

GUNS 

RATE/ 

SPACING  ROUNDS 

MIN 

METERS 

INITIAL 

230 

SUSTAINING : 

2 

3 . 0 

230  30 

16 


TABLE  4.  MUNITION  EXPENDITURES  FOR  MID  INFRARED  WAVELENGTHS 


TABLE 


h i>  ir 


METERS  MINUTES 

S C R  E E N  I... c n g 'f  U / 1) U R  a  t  ICiN.  40 0  1  0 


Ul:>  SMOKE  SCREEN 


1  OS  MM 
1.  55MM  •• 


ROUNDS-''  RATE  / 
60  METERS  MINUTE 
4  3  0 

2  3 . 0 


TOTAL. 

ROUNDS 

090 

445 


5.  MUNITION  EXPENDITURES  FOR  FAR  INFRARED  WAVELENGTHS 

E  AR  IR  . 


MI  TERS  MINUTES 

SCREEN  LING  IH/DURA f ION ■  400  10 


WP  SMOKE  SCREEN 


ROUNDS/  RATE/ 
60  METERS  MINUTE 
1.0  5  MM  6  3  0 

I'-SMM  2  30 


TOTAL 

ROUNDS 

1.334 

445 
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TABLE  6B.  VOLUME  OF  FIRE. TABLES  AS  A  FUNCTION  Of 
RELATIVE  HUMIDITY  AND  PASOUILL  CATEGORY 


ROUNDS  IN  bHAuED  (SHOWN  AS  $$$)  AREA  EXCEED  RATE  OF 
FIRE  OF  WEAPUN/bATTERY. 
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TABLE  6D .  VOLUME  OF  FIRE  TABLES  AS  A  FUNCTION  OF 
RELATIVE  HUMIDITY  AND  PASQUILL  CATEGORY 
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ROUNDS  IN  SHADED  (SHOWN  AS  $$$)  AREA  EXCEED  RATE  OR 
EIRE  OF  WEAPON/BATTERY. 


TABLE  7A.  VOLUME  OF  FIRE  TABLES  AS  A  FUNCTION  OF 
RELATIVE  HUMIDITY  AND  PASQUILL  CATEGORY 
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FIFE  OF  WEAPON/BATTERY 


TABLE  7B.  VOLUME  OF  FIRE  TABLES  AS  A  FUNCTION  OF 
RELATIVE  HUMIDITY  AND  PASQUILL  CATEGORY 
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ROUNOS  IN  SHADED  (SHOWN  AS  $$$)  AREA  EXCEED  RATE  OF 
FIRE  OF  WEAPOcm/BATTERY  . 


TABLE  7C.  VOLUME  OF  FIRE  TABLES  AS  A  FUNCTION  OF 
RELATIVE  HUMIDITY  AND  PASQUILL  CATEGORY 
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TABLE  70.  VOLUME  OF  FIRE  TABLES  AS  A  FUNCTION  OF 
RELATIVE  HUMIDITY  AND  PASQU1LL  CATEGORY 
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ROUNDS  IN  SHADED  (SHOWN  AS  SS$)AREA  EXCEED  RATE  OF 
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TABLE  8B.  VOLUME  Of  FIRE  TABLES  AS  A  FUNCTION  OF 
RELATIVE  HUMIDITY  AND  PASQLJ ILL  CATEGORY 
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TABLE  8C.  VOLUME  OF  FIRE  TABLES  AS  A  FUNCTION  OF 
RELATIVE  HUMIDSTV  AND  PASQUILL  CATEGORY 
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TABLE  8D.  VOLUME  OF  FIRE  TABLES  AS  A  FUNCTION  OF 
RELATIVE  HUMIDITY  AND  PASQU1LL  CATEGORY 
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ROUNDS  IN  SHADED  (SHOWN  AS  $$$)  AREA  EXCEED  RATE  OF 
FIRE  OF  W LAPOrt/SATTERY . 
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APPENDIX  A 


KWIK  ALGORITHM 

GLOSSARY  OF  MNEMONICS  (BASIC/HP  9830A) 


1.  CO 

Celling  -  feet 

2.  Cl 

Cloud  cover  -  percent 

3.  VO 

Visibility  -  miles 

4.  TO 

Temperature  -  degrees  Fahrenheit 

5.  T1 

Dewpoint  -  degrees  Fahrenheit 

6.  DO 

Wind  direction  -  degrees 

7 .  SO ,  S3 

Windspeed  -  knots,  meters  per  second 

8.  PO 

Atmospheric  stability  category 

9.  H3 

Slant  range  to  target  -  kilometers 

10.  RO 

Relative  humidity  -  percent 

11.  xo 

Smoke  screen  length  -  meters 

12.  T2 

Smoke  screen  duration  -  minutes 

13.  S 

Angle  of  sight  to  target  -  degrees 

14.  AO 

Direction  of  line  of  sight  -  degrees 

15.  Y 

Average  roughness  element  -  centimeters 

16.  Z 

Roughness  length  -  centimeters 

17.  P ( 7 ,9) 

Table  of  stability  categories  depending 
upon  solar  altitude  and  windspeed 

18.  T (4,4) 

Table  of  transmittances  resulting  from 
water  vapor,  haze/fog  precipitation  and 
smoke  for  visual,  near,  mid,  and  far 
infrared  wavelengths 

19.  C(4 ,2) 

Table  of  smoke  concentration  values  for 
HC  and  WP  smoke  (by  wavelengths) 

20.  B(4) 

Absorption  coefficient  error  function 

21.  G(4) 

Scale  height  for  Mie  scattering 

22.  H ( 4) 

Haze  and  fog  attenuation  coefficients 

23.  R ( 4 ) 

Precipitation  attenuation  coefficients 

24.  D( 2) 

Table  of  extinction  coefficients  for 
calculating  HC  and  WP  smoke  concentra¬ 
tions  for  visible,  near,  mid,  and  far 
infrared  wavelengths 

25.  A  (6) 

Coefficients  to  compute  sigma  y 

26.  S(6 ,3) ,  0(6,3) 

Coefficients  of  roughness  correction 
factor  used  in  calculating  sigma  z  for 
the  various  roughness  lengths 

27.  Yl,  Y2 

Yield  factors  for  HC  and  WP 

28.  LO.Ll  ,Z0,J0,H0 

Latitude,  longitude,  altitude,  Julian 
date  and  Zulu  time  data 

29.  J(4,2)  ,P{4,2) 

Total  number  of  rounds  required 
(initial  and  sustaining)  'to  maintain  HC 
and  WP  smoke  screen 

30.  E(4,2) ,  F ( 4 , 2 ) 

Number  of  guns  (initial  and  sustaining 

G(4 ,2) ,  Q( 4 , 2 ) 

volleys)  for  105-  and  155-mm  howitzers, 
for  HC  and  WP  smokes  (by  wavelengths) 

31.  Rl,  R(4,2) 

Rate  of  fire  for  HC  and  WP  smokes  (by 
wavelengths) 

32.  H(2 ,2) 

Unit  (per  gun)  source  strength 

r 


I 


33.  Q(2) 

Munition  efficiency  for  105-  and  155-mm 
howitzers  for  HC  smoke 

X 

34.  U(2,2) 

WP  volume  source  sigmas  (oy0  and  az0) 
for  105-  and  155-mm  howitzers 

35.  V(2) 

Stability  dependent  crosswind  inte¬ 
grated  concentration  for  WP  smoke 

36.  W(6) 

Constant  (K)  related  to  stability 
category  for  WP 

3 

37.  X (4) 

Wavelength  threshold  levels 

38.  1(4,2),  Y ( 4 ,2) 

Shell  spacing  for  105-  and  155-mm 
howitzers  (initial  and  sustaining)  for 

HC  smoke 

39.  Z(4,2) ,  L (4 , 2) 

Shell  spacing  for  105-  and  155-mm 
howitzers  for  WP  smoke 

\ 

40.  I  $ ( 4 ) 

Met  site  identifier 

41.  Q$(6) 

Stability  category  indicator 

f 

42.  A$(8) 

Wavelength  indicator 

43.  P 

Precipitation  indicator 

44.  H$( 1) ,  J$(l) 

Direction  from  equator  (N-S)  and 
direction  from  Greenwich  (E-W) 

4 

45.  I 

indicators 

Index  for  wavelength  algorithms 

46.  J 

Index  for  smoke  algorithms 

47.  K 

Index  for  gun  (105-  and  155-mm 
howitzers)  algorithms 
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ft 


10  CfK  r,Y,DO,PO,LlO,30>T1,T2,VO,XO,C[4,2],T[4,4],V[2],W[6],Y[4,2],Z[4,?l 

on  v  V'fTK  c.MOK ALGORITHM  -  FILE  0  (09/14/81;. 

,0  ii'.-'i  k./IK:  ETJOROLOGICAl  INPUTS  AND  METEOROLOGICAL  CALCULATIONS. 

40  DIM  I':r4]fP[7,9],Q-5[6]#H.1[l],J3[l] 

50  FIXED  2 
60  PRINT 

ro  ..  MUNITION  EXPENDITURES" 

„  FOR  HC  AND  UP  SMOKE" 

100  PRINT 
110  PRINT 

120  DISP  "MET  SITE  ID"; 

130  INPUT  I": 

140  DISP  "LATITUDE  OF  MET  SITE-  dEG"; 

150  INPUT  LO 

160  DISP  "DIRECTION  FROM  EQUATOR-  N  OR  o"; 

170  INPUT  K  ■ 

180  DISP  "LONGITUDE  OF  MET  SITE  -  DEG"; 

190  INPUT  LI  „ 

200  DISP  "DIRECTION  FROM  GREENWICH-  E  OR  W  ; 

210  INPUT  JO 

220  DISP  "ALTITUDE  OF  MET  SITE-KILOMETERS"; 

230  INPUT  ZO  „„„„ 

240  DIS?  "JULIAN  DATE  OF  MET  OBSERVATION"; 

250  INPUT  JO 

260  DISP  "ZULU  TIME  OF  MET  OBSERVATION- hr " ; 

270  INPUT  HO 

280  DISP  "CEILING  -  FEET"; 

290  INPUT  GO 
300  70=00*0.3048 

<10  DISP  "CLOUD  COVER  -  PERCENT"; 

320  INPUT  Cl 

330  DISP  "VISIBILITY  -  MILES"; 

340  INPUT  VO 
750  30= VO* 1.61 

360  DISP  "PRECIPITATION  -  1=YES  0=N0"; 

370  INPUT  P 

780  DISP  "TEMPERATURE  -  DEG  F"; 

390  INPUT  TO 

400  T0=( 5/9)* (20-32) 

410  DISP  "DEW  POINT  -  DEG  F"; 

470  INPUT  T1 

430  T1 = ( 5/9)* (T1-32) 

440  7IPP  "WIND  DIRECTION  -  DEGS"; 

450  INPUT  DO 

460  DISP  "WIND  SPEED  KNOTS"; 

470  INPUT  SO 

480  DISP  "AVE  ROUGHNESS  ELEMENT  -  CM"; 

/1 90  INPUT  Y 


500  PRINT  " 
510  PRINT  " 
520  PRINT  " 
530  PRINT  " 
540  I  PINT  " 
550  PRINT  " 


ID 

LATITUDE 
LONGITUDE 
ALTITUDE 
JULIAN  DATE 
ZULU  TIME 


-  DEG 

-  DEG 

-  KM 

-  DAY 

-  HOUR 


13 

H3[ 1 1 ;L0 

J3[  1 J  ;L1 

ZO 

JO 

HO 
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560 

PRINT  " 

CEILING 

- 

METERS 

= 

"  ;C0 

570 

PRINT  " 

CLOUD  COVER 

— 

PERCENT 

= 

"  ;C1 

580 

PRINT  " 

VISIBILITY 

- 

KILOMETERS 

= 

" ;  VO 

590 

PRINT  " 

PRECIPITATION 

= 

";P 

600 

PRINT  " 

TEMPERATURE 

— 

DEG  C 

= 

"  ;T0 

610 

PRINT  " 

DEWPOINT 

- 

DEG  C 

= 

"  ;T1 

620 

PRINT  " 

WIND  DIRECTION 

— 

DEG 

= 

"  ;D0 

630 

PRINT  " 

WIND  SPEED 

— 

KNOTS 

= 

"  ;S0 

640 

PRINT  " 

AVE  ROUGHNESS  ELEMENT 

- 

CM 

S 

»;Y 

650  FOR  J=1  TO  9 
660  FOR  1=1  TO  7 
670  REAj  P[I,J] 

,80  IIKXT  I 
690  NEXT  J 
700  READ  C  •  '  [ 1 ] 

710  IF  THEN  740 

720  LI =-Ll 

730  REM  EOT  CALCULATIONS. 

740  IF  Cl..  100  THEN  790 

750  IF  002133.6042  THEN  790 

7 60  11=0 

770  12=0 

780  GOTO  1400 

790  REH  CALCULATE  ANGULAR  FRACTION  OF  A  YEAR  FOR  A  GIVEN  JULIAN  DATE  (AO) 
800  R9=PI/180 
810  D9= 180/PI 
820  L0=I,0*R9 

830  A0-((J0-l)*360)/365.242 

840  REM  CALCULATE  SOLAR  DECLINATION  ANGLE  (A4). 

850  A1=A0*R9 
860  A 2= 279.9348+AO 

870  A2=A2+( 1 ,914827*SIN(A1 ))-(O.079525*COS(A1 )) 

880  A2=A2+(0.01 9938* SIN ( 2*A1 ) )- (0.001 62*COS( 2*A1 ) ) 

890  A2=A2*R9 

900  A3=23.4438*R9 

910  A4  =  S IN ( A 3 ) *  SIN ( A2 ) 

920  A4=ATN(A4/SQR(l-A4*A4+1E-99) ) 

930  REM  CALCULATE  THE  TIKE  OF  MERIDIAN  PASSAGE  -  TRUE  SOLAR  NOON  (A5). 

940  A5»12+(0.12357*5IN(A1))-(0.004289*C0S(A1 )) 

950  A5=A5+(0. 1 5 3809* 3 IN ( 2*A1 ) )+(0.060783*C03( 2*A1 ) ) 

960  REM  CALCULATE  SOLAR  HOUR  ANGLE  (A6) 

970  A6»15*(H0-A5)-L1 
980  A6=A6*R9 

990  REM  CALCULATE  SOLAR  ALTITUDE  (A7) 

1000  A7=UIN(L0)*SIN(A4)+C0S(L0)*C0S(A4)*C0S(A6) 

1010  A7=ATN(A7/SQR( 1-A7*A7+1E-99 ) ) 

1020  A7=A7*D9 

1030  REM  CALCULATE  INSOLATION  CLASS  NUMBER. 


1040 

12=0 

1050 

IF  A 7 

<=  60 

THEN 

1080 

1060 

12=4 

1070 

GOTO 

1160 

1080 

IF  A 7 

<=  35 

THEN 

1110 

1090 

12=3 

1100 

GOTO 

1160 

iro 

IF  A 7 

<=  15 

THEN 

1140 

35 


1120 
1130 
1140 
1150 
1160 
1 170 
1180 
1 190 
1200 
1210 
1220 
1  230 
1240 
1250 
1260 
1  270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 


ill  1350 

NET  RADIATION  INDEX  FOR  DAYTIFU 


1210 


1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
<450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1 660 
1670 


12=2 

GOTO  1160 
IF  A7  <=  0  Till 

12=1 

REN  CALCULATE 
13=0 

I?  C1>50  THEN 
13=12 
GOTO  1290 

IF  CO  >=  2133.6042  THEN  1240 
13=12-2 
GOTO  1290 

IF  CO  >=  4876.8096  THEN  1270 
13=12-1 
GOTO  1290 

IF  Cl  //'1 00  THEN  1290 
13=12-1 
IF  I3vrO  THEN 
13=12 

IF  I3>1  THEN 
13=1 
11=13 
GOTO  1400 
REE  CALCULATE 
IF  Cl >40  THEN 
11  —  2 
GOTO  1400 

REiT CALCULATE  PA3QUILL  STABILITY  CATEGORY. 
14=0 


1310 

1330 


NET  RADIATON 
1390 


INDEX  FOR  NIGHTTIME 


15=0 

IF  IU‘4  THEN  1450 
14=1 

IP  11/73  THEN  1470 
14=2 

IF  II;/ 2  THEN  1490 
14=3 

IF  II// 1  THEN  1510 
14=4 

IP  I1#0  THEN  1530 
14=5 

IF  II //-I  THEN  1550 
14=6 

IF  II#- 2  THEN  1570 
14=7 

IF  SO  >=  2  THEN  1600 
15=1 

GOTO  1820 

IF  SO  >=  4  THEN  1630 
15=2 

GOTO  1820 

IF  SO  >=  6  THEN  1660 
15=3 

GOTO  1820 

IF  SO  >=  7  THEN  1690 
15=4 
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1680  GOTO  1820 

1690  IF  SO  >=  8  THEN  1720 

1700  15=5 

1710  GOTO  1820 

1720  IF  SO  >=  10  TH ON  1750 

1730  15=6 

1740  GOTO  1820 

1750  IF  30  >=  11  THEN  1780 

1760  15=7 

1770  GOTO  1820 

1780  I?  SO  >=  12  TH EN  1810 

1790  15=8 

1800  GOTO  1820 

1810  15=9 

1820  P0=P[I4,I5] 

1830  ilEM  CALCULATE  RELATIVE  HUMIDITY 

1840  IF  T0>0  THEN  1880 

1350  A0=9. 5 

1860  BO=265. 5 

1870  GOTO  1900 

1880  A0=7 . 5 

1890  B0=  237 « 3 

1900  IF  T1>0  THEN  1940 

1910  AT  =9.5 

1920  B1=265.5 

1930  GOTO  I960 

1940  Al =7 . 5 

1950  B1=237.3 

1960  E0=6.1 1*10*((AO*TO)/(BO+TO)) 

1970  S1=6.11*10A((A1*Tl)/(B1+Tl)) 

1980  R0=(El/E0)*100 

1990  PRINT  "  PASQUILL  STABILITY  CATEGORY  =  »;Q$[P0,P0 

2000  PRINT  "  RELATIVE  HUMIDITY  =  ";R0 

2010  PRINT 
2020  PRINT 

2030  DISP  "DONE  -  LINK  1" 

2040  REM  PASQUILL  STABILITY  CATEGORY  DATA 

2050  DATA  1,1, 2, 3 ,4, 6, 6 

2060  DATA  1 , 2, 2, 3,4,6, 6 

2070  DATA  1 , 2, 3, 4 , 4 , 5, 6 

2080  DATA  2, 2, 3, 4 , 4 , 5, 6 

2090  DATA  2, 2, 3, 4, 4, 4, 5 

2100  DATA  2, 3, 3, 4, 4, 4, 5 

2110  DATA  3, 3, 4, 4, 4, 4, 5 

2120  DATA  3, 3, 4, 4, 4, 4, 4 

2130  DATA  3, 4, 4, 4,4, 4, 4 

2140  DATA  "ABCDEF " 

2150  END 
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10  (’Oil  PfY,D0,P0,R0,30,T1  ,T2,VO,XO,C[4,2]  ,T[4,4] ,V[2] ,W[6] ,Y[4,2] ,Z[4, 2] 

?0  R 101-5  KV/IK :  ATMOSPHERIC  OPTICS  AND  SMOKE  CONCENTRATION  CALCULATIONS  (FILI 
30  DIM  B[4],G[4],H[4],R[4],D[2],X[4] 

40  FIXED  2 

FOR  1=1  TO  4 
READ  B[I],G[I],X[I] 

70  NEXT  I 
80  V1=L0G( VO) 

90  V2=V1*V1 
100  V3=V2*V1 


D. 


50 

60 


110  H[ 1 
120  H[1 
130  H 
140  II 
150  II 
160  il 
170  H 
130  U 


190 

700 

710 

270 

730 

240 

250 

260 


270  H0=0 
280  DIS? 


=1.5551-(0.9811*Vl)-(0.01 97*V2)+(0.0041*V3) 

=EXP(H[lj) 

=1. 50381 511- (o. 99231951 9*V1 )-(0.01 5972801*V2)+(0.00368583*V3) 
=EXP(H[2J) 

=1 .2394-C1 .0436*V1 )+(0.0099*V2)-(0.00l6*V3) 

=EXr(Ht3J) 

=1.517 6- Cl .71 47* VI )+(0.0001*V2)+( 0.0428*73) 

=EXP(H[4]) 

=  1 . 3306- (0.882 5* VI )-(0.0753*V2)+(0.01 29* V3) 

=exp(r[ 1 J ) 

= 1.481 951 707-( 0.922595829* VI )-(0. 0655094 17*V2)+(0. 01 3680422*V3) 

=EXi'(R[2] ) 

=1 . 5556-(0. 901 3* VI  )-(0. 0773* V2)-f-( 0.01 73*V3) 

=EXP(R[ 3 1 ) 

=V. 59 28- (0.93 96* VI )-(0.0627*V2)+(0.0l68*V3) 

EXP(R[4]) 

"SLANT  RANGE  TO  TARGET  -  KM"; 


290 

700 

710 

'20 


‘30 


INPUT  H3 

DIEP  "ANGLE  OF  SIGHT  TO  TARGET  -  DEG"; 
INPUT  S 

IE  S  >=  0  THEN  340 

s 

,40  S  =  S*(PI/180) 

350  S=3IN ( S ) 

360  114=0 

370  IF  S=0  THEN  400 
300  114=  1/S 


REM  CALCULATE  PRECIPITABLS  WATER. 

W=0. 4477+(0.0328*T1 )+( 1 . 2E-03*T1*T1 )+( 1 . 84E-05*T1*T1*T1 ) 

REM  CALCULATE  AMOUNT  OF  'WATER  IN  PATH. 

DCF  FNA(A)=EXP(-S*A/2) 
i0-NI3 
1=110 
i.  2=L0 

L';i  =  0.  5*  (L1+L2) 

I.4=L2-L1 

4»0  Ij5=0.  2886751*14 
490  W 0=  0 . 5* 14* ( FNA ( L3+L5 ) +FNA ( L3-L5 ) ) 

v;i  =  v:o 

E EM  CALCULATE  TRANSMITTANCE 
FOR  1=1  TO  4 

REM  CALCULATE  TRANSMITTAIICES  OWING  TO  ABSORPTION  BY  WATER  V 
IF  14  THEN  570 
?[i,i]=s:r(-o.068i*wi) 


390 

400 
410 
4  70 
4  30 
4  4  0 
4  50 
460 
470 


500 

510 

570 

530 

540 

550 


5  FOR  VISUAL, NEAR, MID  AND  FAR  IR  WAVELENGTH! 

(FOR . 
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560  Gi  ?C  670 

57  0  d:;f  fnb(b)=s::p(-b*2) 

500  L0=  ( B [  I J  *SQR  ( ./ r *PI  ) / 2 ) 

590  LI =H0 
600  12=10 

MO  L3=0.5*  (11+12) 

620  14=12-11 

650  65=0.2886751*14 

64  0  H 2=0 . 5*14*  ( IN 3  ( 13+15 )  +FNB  ( 13-15 ) ) 

650  T[I, 1J=(2/SQR(PI))*K2 
660  T[l, 1]=1-T[I,l] 

670  RSM  CALCULATE  TRANSM ITT ANCE  OV/ING  TO  ATTENUATION  BY  HAZE  AND  FOG. 
680  IF  P=0  THEN  710 
690  T[I,2]=1 
700  GOTO  990 

710  IF  VO  >=  G[I]  THEN  910 

720  DEF  FNC(C)=EXP(C*S*10G(0. 1/H[I] )) 

730  10=H4 
740  11=110 
750  12=10 
760  13=0.5*(11+12) 

770  14=1.2-11 

780  15=0.2886751*14 

790  T3=0. 5* 14* (FNC (13+15 )+FNC (13-15)) 

800  T4=EXP(-H[I]*T3) 

810  DEF  FN.D ( D ) = EXP ( -D*  S/4 • 1 ) 

820  11=114 
830  12=H3 

840  13=0.5*(11+12) 

850  14=12-11 

860  15=0.2886751*14 

870  T 5=0. 5*14* (END (13+15 )+FND( 13-15 ) ) 

880  T6=EXP(-0.128*T5) 

090  T[I,2]=T4*T6 
900  GOTO  990 
910  10=113 
920  11=110 
93 0  12=10 
940  13=0.5*  (11+12) 

950  14=12-11 

960  15=0.2886751*14 

970  17=0. 5*14*  (FND(13  H5)+FND(13-15) ) 

980  T[I, 2]=EXP(-H[I]*T7) 

990  LEM  C ALCU1ATE  TRANSMITTANCE  OWING  TO  ATTENUATION  BY  PRECIPITATION. 

1000  IF  ?=1  THEN  1030 

1010  T[I,3]=1 

1020  GOTO  1050 

1030  IF  V0>20  THEN  1010 

1040  T[I,3]=EXP(-H3*R[I]) 

1050  REM  CA1CU1ATE  TRANSMITTANCE  OWING  TO  ATTENUATION  BY  SMOKE. 

1060  T[I,4]=X[I]/(T[I,1]*T[I,2]*T[I,3]) 

1070  IF  T[I, 4j  <=  1  THEN  1090 
1080  T[ I , 4 ] = 1 

1090  RSM  CALCULATE  LINE  OF  SIGHT  INTEGRATED  CONCENTRATION. 

1100  FOR  K= 1  TO  2 

1110  READ  D[K] 
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1120  1 
ii5o  : 
H40  : 
1150  ' 
1160 
110 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1  2^0 
1  ?80 
1  290 
1300 
1310 
13  20 
1330 
1340 


y  y 

IF  T  [  1 , 4  ]// 1  THEN  1180 
FOR  J=1  TO  2 


C[I,J]=0 

NEXT  J 

GOTO  1240 

r*'OR  K=1  TO  2 

IF  o[k]//o  THEM  1220 

C[I,K]=0 

GOTO  1230  ,  P  , 

C[I,K]=L0G(T[I,4])/~D[K] 

NEXT  K 
NEXT  I 

31 SP  "PONE  -  LINK  2 
DATA  0.118,26.7,0.05 
DATA  0.18,7.5,0.05 
DATA  0.55,5.1*0.05 
DATA  0,5,0.05 
DATA  3.3,2.46 
i  DATA  1.5,2 
l  DATA  0,0.25 
i  DATA  0,0.32 
)  END 
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10  I  ,Y,DO,PO,RO,SO,T1,T2,VO,XO,C[4,2],T[4,4],V[2],U[6],Y[4,2],Z[4,2] 

oo  k  /ik:  atmospheric  diffusion  calculations  (file2) 

v0  DIM  S[6,3],A[6]/.)[2]fH[2,2],D[6,3],U[2,2] 

40  FT MED  2 

50  NTS’5  "DIRECTION  OF  LINE  OF  SIGHT-DEG"; 

GO  lNfVn  AO 

''0  REM  ATMOSPHERIC  DIFFUSION  CALCULATIONS. 

80  FOR  1  =  1  TO  6 

so  lead  a  [  i  ] 

'00  NEXT  I 
110  FOR  1=1  TO  6 
ISO  FOR  J=1  TO  3 
130  READ  S[I,J] 

140  K  SMT  J 
150  N  'IXT  I 
160  FOR  1=1  TO  6 
170  FOR  J  =  1  TO  3 
180  READ  D[I,J] 

190  I.  ,/CT  J 

200  :::t  i 

210  READ  H[l,ll,K[l,2j,H[2,ll,H[2,2] 

220  READ  U[1, 1 J tU[ 2, 1 J ,U[ 1 , 2] ,U[ 2, 2J 
230  A 1 =- 1 . 24+1 . 1 9*LGT(Y) 

240  Z= 1 0*A1 

25 0  A?= ABS ( AO-DO )* (PI/ 180) 

260  R 2=Sr'R(  1  3.69/ ( 1  3. 69*SIN( A2)*SIN(A2)+C0S(A2)*C0S(A2)  )  ) 

2  0  Y1=1.09521547+(0.02906894*R0)-(4.9575E-04*RO*RO)+(4.82E-06*RO*R0*R0) 

280  Y2=3.304O59144+(O.O6O5O2571*RO)-(l .15301B-03*RO*RO)+(1 .33942E-05*R0*R0*R0) 

290  J2=:;[ ro, i 1+s[po, 2]*z+sf po, 3l*z“2 

300  D1  =  D[?0, 1  J+D[PO,  2J«Z+D[POf  3J*Z*2 

310  D2-1/D1 

320  IF  SO,,  0  THIN  340 

330  30=1 

34  0  S 3=0. 51  5* SO 

350  RJ3P  "SCREEN  LENGTH  -  METERS"; 

•  0  INPUT  CO 

3"0  jjn>  "DURATION  -  MINUTES"; 

380  INPUT  T2 

390  for  :;=i  to  c 

400  READ  . : [ N ] 

410  NEXT  N 
420  FOR  1=1  TO  4 

430  REM  CALCULI. T  )  CROSS MIND  INTEGRATED  CONCENTRATION  FOR  WP  SMOKE. 

440  FOR  K=1  TO  2 

450  IF  I<3  AND  P0>4  THEN  490 

460  S 1 =U[K,  l]+0.74*A[P0]*100*0,9 

4  :' 0  S 2=U[K,  2]  +0. 667*C 2*  1 00“D1 

480  7[K]  =  (V;[P0]*Y2*H[K,  2]  )/(PI*S1*S2) 

490  REM  MUNITION  EXPENDITURES  (HC  SMOKE). 

500  REM  MUNITION  EFFICIECY: 

510  'T  1 1  =  0.4 
520  [2j  =  0.4 

530  REM  SUSTAINING  SHELL  SPACING  FOR  HC  SMOKE. 

540  IP  I>2  THEN  610 
550  TT’  :[  1 , 1  ]  ,  0  TH  IN  580 
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560  Y [ I , K ]  =  0 
570  GOTO  610 

580  Y[ItK]=1/R2»(0.731*Q[K]*Y1*H[K, 
590  IF  Y[I,KJ<XO  THEN  610 
600  Yri,F]=X0 

CIO  NEXT  K 


1 ]/ (C  2*S3*C[I , 1 ] ) )  *D2 


670  NEXT  I 

650  DIE?  ".DONE  -  LINK  3" 

640  REM  DATA  USED  TO  CALCULATE  SIGMA  Y  FOP.  CONTIUOUS  SOURCE. 
65C  DATA  0.4,0.32,0.22,0.144,0.102,0.076  _tt^„ 

660  REM  DATA  USED  TO  CALCULATE  SIGMA  2  FOR  CONTINUOUS  SOURCE, 


670  DATA  0.139085297,0.015017284,-1 .02581E-04 
f>80  DATA  0.1 22097643, 0.01 097037, -6. 801 35E-05 
690  DATA  0.110104377, 0.010962963, -6. 73401S-05 
700  DATA  0.097649832, 0.010418519, -6. 83502S-05 
710  DATA  0.070772166, 7. 27284E-03, -4. 50056E-05 
770  DATA  0.055487093, 6. 55309E-03, -4. 01796E-05 
750  DATA  0.944814815,-4.851852-O3,3.7O37E-O5 
740  DATA  0.894803591,-4.839512-03,3.591472-05 
750  DATA  0.854792368,-4.8271 6E- 03, 3. 47 9 24S-05 
760  DATA  0.816026936,-6.074073-03,4.71382-05 
'770  DATA  0.786026936,-6.074073-03,4.71383-05 
780  DATA  0.72601 571 3,-6.061733-03,4.601 57E-05 
79O  REM  UNIT  (PER  GUN)  SOURCE  STRENGTHS. 

800  DATA  18.7,1737.3,77.1,7076.2 

810  REM  V/?  VOLUME  SOURCE  SIGMAS  (U(2,2)). 


820  DATA  5. 4, 7. 9, 1.8, 2. 6 

830  REM  STABILITY  CONSTANTS  FOR  V/P  SMOKE. 


I 
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10  on:;  P,Y,  J0,P0,H0,30,T1  ,T2,V0,X0,C[4, 2]  ,T[4,4]  ,V[2]  ,V[6]  ,Y[4, 2]  ,Z[4, 2] 

?o  u::::  keik:  munition  expenditures  (continuation)  (pile  3). 


;0  '>10  :;[4,2],l[4,2],jr4,2],P[4,2],E[4,2]>P[4,2],G[4,2],H[2,2],Q[4,2],L[4,2] 

40  ::>3 - .  To] 
iiO  Pi..:;)  2 
OO  S3=S0*0.515 

vo  iv : unit  source  strength, 
go  n[  1 , 1  ] ,h[  1 , 2] ,k[2, 1  ] ,H[ 2, 2] 

90  FOR  1  =  1  TO  /I 
100  EOF  K  =  1  TO  2 
110  TO  I>2  THEN  430 

190  CALCULATE  INITIAL  SHELL  SPACING  FOR  IIC  SI-IOKS. 

130  I [ I ,X]=S3*45 

140  I"  Y[lfK]:o  THEN  180 

■  50  r 1:1=1 

1  0  =  i 

to  goto  330 

190  lip"  CALCULATE  INITIAL  VOLLEY  FOR  KC  SMOKE. 

190  IF  I[I,K]>Y[I,K]  THEN  210 
200  GOTO  220 

910  iri,N]=Y[l,K] 

220  ">tl,K]  =  Xp/l[l  K] 

230  Q5=IiIT(E[lfK]) 

940  0=  E[  I ,  K  J-Q5 

250  I?  06=0  THEN  270 
260  :[I,K]=03+1 

97 0  REN  CALCULATE  NUMBER  0?  GUNS  FOR  SUSTAINING  VOLLEYS  (KC  SMOKE). 

280  F[  I  i:]  =  KO/Y[  I  f  K] 

990  5=INT(?flfK]5 
300  ;6=?[ I f  K J— Q5 
310  IF  '  6-0  THEM  330 
•M-O  i'T  I,N]=05+1 

3.0  R  CALCULATE  RATE  OF  FIRE  FOR  HC  SMOKE. 

340  31=0.5 

350  IF  0  [  1 , 1  ]  //  0  THEN  370 
360  it  1  =  0 

v70  3  2 ‘  CALCULATE  TOTAL  NUMBER  OF  ROUNDS  REQUIRED  (KC  SMOKE). 

380  J[I,K]  =  .;n,Kl  +  (R1*T2-1  )*F[IfK] 

390  !5=INT( j[l ,K J ) 

400  6= J  [  I , K  J-Q5 

410  IF  "6=0  THEN  430 

4  90  j[l,K]=<i 5+1 

430  I''  I<3  AND  P0>4  THEN  950 

440  GEM  SHELL  SPACING  <L(  )  *  Z(  )>  Ac  VOLLEYS  <G(  )  &  0(  )>  -  VP  SMOKE. 

450  iv  C[lt2]//0  THEN  500 

4  6  0  .3  _  I ,  K 1  =  0 

4  0  !j  I,iv1  =  0 

490  ; I  I , I! J  =  0 

490  GOTO  630 

500  IF  I>2  THEN  550 

510  L[I,K]=V[K]/0[I,2]*100 

590  /jflfK  =L  I,K] 

530  G[I,K]=-C0/Z[I,KJ 
540  GOTO  560 

550  G[IfK]=0.6*C[I,2]/V[K] 
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560  05=INT(G[I,K]) 

570  ()6=G[I,K]-Q5 
580  IF  06=0  THEN  610 
590  G[I,K]=05+1 
600  GOTO  620 
,,10  G[I,K]=Q5 
620  Q[I,KJ=G[I,K] 

650  rem  rate  of  fire  for  v/p  smoke. 

640  IF  C[l,2]//'0  THEN  680 

650  R[I ,K]=0 

660  GOTO  820 

670  IF  I>2  THEN  700 

680  R[l,K]=(Z[l,K]+60)/S3 

■'■90  GOTO  710 

700  R[I,K]=1 20/S3 

-10  R  [  I ,  K  J  =R  [  I ,  K 1  /  20 

-20  R5=INT(Ri"l,Kj ) 

730  R5=R[I,KJ-R5 

-40  I’’  R6<0. 5  THEN  760 

750  R5=R5+1 

760  I77  R5„0  THEN  730 

'  '  0  R5- 1 

"80  Rri,K]=R5>;  20/60 
-90  :[lfICJ=l/R[IfX] 

800  I?  R [ I , K 1  >=  1  THEN  820 
810  R[I,K]=1 

820  'REM  CALCULATE  TOTAL  NUMBER  OF  ROUNDS  REQUIRED  (7/P  SMOKE). 

830  IF  ■:[!,  2],70  THEN  860 

840  P[ I , K ] =0 

850  GOTO  1030 

860  1  ■'  I >2  THEN  890 

8-0  : [I,K]=G[I,K]+Q[I,X]*(T2*R[I,K]-1) 

880  GOTO:  GOO 

890  R[ I , K]=Q[ I , Kl* (X0/60+1 )* ( T2*R[ I ,K]-1 ) 

900  5=INT(F[I,KJ ) 

910  ' : — I ’ [  I  ,K  J-Q5 
9  0  I  ■  6  =  0  THEN  940 

930  ]’[ I ,  K  ]  =r  '5  +  1 
940  G(  TO  1290 

950  RIM  CALCULATIONS  FOR  V/P  SMOKE  E  &  F  STABILITY  CATEGORIES  (STABLE  FLOW). 

9oO  /.CM  INITIAL  SHELL  SPACING 

970  1*  1  =  1  ANO  K  =  1  THEN  1000 

980  I”  I<3  AND  K=  2  THEN  1000 

990  IF  1=2  AND  K=1  THEN  1020 

iooo  ;,ri,K]  =  ioo 

1010  GOTO  1030 
1070  L[I,K]=50 

1030  a  sustaining  shell  spacing 

1040  I"  1  =  1  AND  IV  =  1  THEN  1080 

1050  IF  1  =  2  AND  IV=2  THEN  1080 

10'  0  I-  1  =  1  AND  K=2  THEN  1100 

1070  IF  1=2  AND  N= 1  THEN  1120 

10M>0  Z  f  I ,  K  ]  =  1 00 
1090  G;  TO  1130 
1100  E[lfi:]  =  200 
1110  goto  1150 
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ii-o  -[i,i:]=50 

1130  rz:  initial  7ot..l:-:y  -  v/p  smoky. 

1140  G[I,K>X0/L[I,K]  +  1 
11J,0  A  ;i:  SUSTAINING  YOLLNY. 

11)0  ![I,K]  =  I0/N[I,K]  +  1 

i i'.'O  a:-:::  at:-:  op  pirn  -  v/r  smoky. 

1130  I?  K  =  1  TURN  1200 
1190  IP  K=2  THAN  1220 
1 1 00  ;.[I,L]  =  2 
1  '3  0  GOTO  J  230 
1.-20  R[ I ,K]=1 

1  ?'jO  total  kutbsr  op  rounds  rpquirld. 
1240  j’[l,K]=GrifKUo[l,K]*(T2*R[l,K]-l) 

1250  f,5  =  INT(x[l,KJ) 

1 2 GO  06=r[I,K]-Q5 
12'.’0  IP  06=0  THAN  1290 
1280  P[I ,K] =Q5+1 
1290  r  i: 

1300  i:il  it  1 

1310  POP  1=1  TO  4 
1320  PRINT 
1330  PRINT 
1340  PRINT 
1350  PRINT 
1360  PRINT 
1370  PRINT 
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1 6  80 
1690 
17  00 
1710 
17  <0 

r,  30 
r  40 
1"50 
1770 

r  70 

1780 
1790 
1 800 
1810 


./RITE  (15,1G90)F[I,2]rR1*Y[I,2],J[l,2] 


FORMAT  " 
PRINT 
PRINT 
PRINT 
PRINT  " 
PR  IN'" 


SUSTAINING: ",F5.0,F5.1,F9.0,F7.0 


V.T  SMOKE  SCREEN " 


nniMT  " 

PRINT 

PRINT  ”  VOLLEY 

PRINT  " 

TRITE  (15, 1010)0 [1,1], L[I,1] 
FORMAT  "  INITIAL: 


1 05MM  HOWITZER" 

GUNS  RATS/  SPACING  ROUNDS” 
MIN  METERS" 

", F5.0,6X,F8.0 


ruiU'ini  • 

1S70  VP. ITS  (  15,1830)Q[I,1],R[I,1] ,  Z[  1 , 1  ] , P[1 , 1  ] 

SUSTAINING: ",F5.0,F5.1,F9.0,F7.0 


1830 

1  U.ulAi 

1840 

;  i  *r  •  m 

1830 

PRINT 

1060 

PRINT 

1870 

PRINT  ' 

1800 

PRINT 

1090 

PRINT  1 

1900 

PRINT  1 

1910 

'..'RITE  1 

1970 

FORMAT 

1930 

VRITO  l 

1940 

FORMAT 

1950 

PRINT 

1970 

PRINT 

1970 

I  ’  I<3 

1980 

PRINT 

1990 

PRiRT 

7000 

PRINT 

2010 

PRINT 

2070 

PRINT 

2030 

'./RITE 

2040 

FORMAT 

2030 

V/RITE 

2060 

FORMAT 

207  0 

NEXT  I 

2080 

PRINT 

2090 

PRINT 

2100 

PRINT 

21  10 

PRINT 

21  20 

PRINT 

21  30 

PRINT 

7140 

PIP?  " 

2150 

REM  UN 

71'  0 

DATA  1  ■ 

21  "0 

DATA  " 

2190 

DATA  " 

2190 

DATA  "! 

2200 

DATA  " 

2210 

END 

VOLLEY 


1 55MM  HOWITZER" 

GUNS  RATE/  SPACING  ROUNDS" 
MIN  METERS" 


INITIAL:  ",F5.0,6X,F8.0 

l,2],Z[I,2],P[I,2] 

SUSTAINING: ",F5.0,F5. 1 ,F9.0,F7.0 

V/P  SMOKE  SCREEN" 

ROUNDS/  RATE/  TOTAL" 
60  METERS  MINUTE  ROUNDS" 
E, 1],P[I,1] 

105HM:  "F5.0,5X,F3.0,5X,F7.0 

E,2],P[I,2] 

155MM:  ",F5.0,5X,F3.0,5X,F7.0 


(PER  GUN)  SOURCE  STRENGTHS. 


*.j  J.  ULix 
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APPENDIX  C 


KWIK  ALGORITHM  (PRINTER) 
GLOSSARY  OF  MNEMONICS  (HPL/HP  9825A) 


1. 

A 

Ceiling  -  meters 

2. 

B 

Cloud  cover  -  percent 

3. 

C 

Visibility  -  kilometers 

4. 

D 

Temperature  -  degrees  Celsius 

5. 

E 

Dewpoint  -  degrees  Celsius 

6. 

F 

Wind  direction  -  degrees 

7. 

G 

Windspeed  -  knots 

8. 

H 

Atmospheric  stability  category 

9. 

0 

Slant  range  to  target  -  kilometers 

10. 

Q 

Relative  humidity  -  percent 

11. 

R 

Smoke  screen  length  -  meters 

12. 

T 

Smoke  screen  duration  -  minutes 

13. 

U 

Angle  of  sight  to  target  -  degrees 

14. 

V 

Direction  of  line  of  sight  -  degrees 

15. 

Y 

Average  roughness  element  -  centimeters 

16. 

Z 

Roughness  length  -  centimeters 

17. 

A(7,9) 

Table  of  stability  categories  depending 
upon  solar  altitude  and  windspeed 

18. 

B(4,4) 

Table  of  transmittances  resulting  from 
water  vapor,  haze/ fog  precipitation  and 
smoke  for  visual,  near,  mid,  and  far 
infrared  wavelengths 

19. 

C(4,2) 

Table  of  smoke  concentration  values  for 
HC  and  WP  smoke  (by  wavelengths) 

20. 

0(4) 

Absorption  coefficient  error  function 

21. 

E(4) 

Scale  height  for  Mie  scattering 

22. 

F  ( 4) 

Haze  and  fog  attenuation  coefficients 

23. 

G(4) 

Precipitation  attenuation  coefficients 

24. 

H(2,4) 

Table  of  extinction  coefficients  for 
calculating  HC  and  WP  smoke  concentra¬ 
tions  for  visible,  near,  mid  and  far 
infrared  wavelengths 

25. 

1(7) 

Graphics  scaling  factors 

26. 

J(6) 

Coefficients  to  compute  sigma  y 

27. 

K(6,3) ,L(6,3) 

Coefficients  of  roughness  correction 
factor  used  in  calculating  sigma  z  for 
the  various  roughness  lengths 

28. 

M(  2) 

Yield  factors  for  HC  and  WP 

29. 

N  { 5 ) 

Latitude,  longitude,  altitude,  Julian 
date  and  Zulu  time  data 

30. 

0(3) 

Graphics  translator  files 

31. 

P(4 ,2,2) 

Total  number  of  rounds  required 
(initial  and  sustaining)  to  maintain 

HC  and  WP  smoke  screen 

32. 

Q(4,2,2,2) 

Number  of  guns  (initial  and  sustaining 
volleys)  for  105-  and  155-mm  howitzer, 
for  HC  and  WP  smokes  (by  wavelengths) 

33.  P,  R(4,2) 


Rate  of  fire  for  HC  and  WP  smokes  (by 
wavelengths) 


34. 

S(2,2) 

Unit  (per  gun)  source  strength 

35. 

T  ( 2 ) 

Munition  efficiency  for  105-  and  155-mm 
howitzer,  for  HC  smoke 

36. 

U(2,2) 

WP  volume  source  sigmas  (oy0  and  oZ0) 
for  105-  and  155-mm  howitzer 

37. 

V  (2) 

Stability  dependent  crosswind  inte¬ 
grated  concentration  for  WP  smoke 

38. 

W{6) 

Constant  (K)  related  to  stability 
category  for  WP  smoke 

39. 

X  ( 4) 

Wavelength  threshold  levels 

40. 

Y(4,2,2) 

Shell  spacing  for  105-  and  155-mm 
howitzer  (initial  and  sustaining)  for 

HC  smoke 

41. 

Z(4,2,2) 

Shell  spacing  for  105-  and  155-mm 
howitzer  for  WP  smoke 

42. 

A$(4) 

Met  site  identifier 

43. 

B$(6) 

Stability  category  indicator 

44. 

C$(4,8) 

Wavelength  indicator 

45. 

D$(3) 

Precipitation  indicator 

46. 

E$ (2,2) 

HC  or  WP  smoke  indicator 

47. 

G$(  1 ) 

105-mm  howitzer  indicator 

48. 

G$(2) 

155-mm  howitzer  indicator 

49. 

E$(2) 

Direction  from  equator  (N-S)  and 
direction  from  Greenwich  (E-W) 

indicators 

50. 

I 

Index  for  wavelength  algorithms 

51. 

J 

Index  for  smoke  algorithms 

52. 

K 

Index  for  gun  (105-  and  155-mm 

howitzer)  algorithms 
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0  : 
i: 
2 : 
3: 
4: 
b: 
o : 
7  : 
o : 

j : 
10 
11 
12 

13 

14 
lb 
lu 
17 
id 
l'j 
2u 
21 


"KWlK  oMOKL  PROGRAM  -  PAPER  TAP E  VERSION  (08/20/dO) ": 
uim  Al7,91,ul41  .E141  ,h[2t4J,Jl6]  ,K16 ,3]  ,L16,3] 
cam  *3  1 4 , 4  ]  ,014,2)  ,F 1 4  J  ,  G  l  4 )  fil7],Ml2],N[5] 
aim  Gib] ,*14,2,2] ,g 14, 2,2,2] ,R 14.2] ,S [2, 2] 

Gifii  i  1 2  ]  ,  U  l  2 , 2 )  ,V(2]  ,  W  [  6  1  ,  X  {  4  j  ,Yl4,2,2],E[4,2,2] 

uim  AS  14J  ,ii$l6  J  ,G$l  4,8]  ,U$13]  ,E$12}  ,FSl2/2]  ,G512,  5J,H$[2] 

"  I N 1 1 1 AL1 £AT10n " : 

xul  l,Al*l,ul*],t.l*]  ,Hl*i  ,Jl*]  ,Kl*]  ,L[«1 
"  UNIT  SOURCE  STRENGTHS" : 

18.7-bll,!] ;1737.i-Stl,2] ;77.1*S{2,U ; 70  76 .2*S  [2, 2] 

.  4*T ( 1 J  *T  l  2  ] 

3.4*011,1] ; 7. y-u 12,1]; l.b-Ul 1,2] ; 2.6-012,2] 

.  0  ib*W  1 1  ]  *u  12  ]  +W  i  3  ]  *W  [  4]  *W  1 5  ]  *to  [6  ] 

"  nAvELEnGTH  THRESHOLD  LEVELS": 

.  U  8*  a  ( 1  ]  *X  12  ]  *X  ( 3]  *X  [  4] 

"  PAS-0 DILL  Si AdILIT Y  CATEGORY  INDICATOR"  : 

"  AoC  utt t  "  *i3  8 

"  rtA vELEwOTn  INDICATOR": 

"viSiiiLE:"*C$llJ  ;  "NEAR  iR:  "*CS  12  J  ;  "Mlu  Ik:  "+C$  [  3]  ;  "FAR  1R: 
"  LATITudE/LunGITUDE  DEFAULT  DIRECTIONS": 

"  nV.  "  *  t8 

"  SMOKE  TYPES": 


2  2 

2  j 
c  4 
zs 
26 
27 
2d 
23 
3u 
dl 

32 

33 

34 

j  8 

37 

3d 

3  8 


"  iiC"  *r  8  1 1 ]  ;"«P"*F$l2] 

"  SMOKE  DELIVERY  SYSTEM  NAMES”  : 

"1  UJ  ;  "  1  b bMM "  *G  8  [  2  J 

"  aET  Slit  INFORMATION": 
era  "MET  Silt  Id"  ,A8 
ccp  ( A$ )  *a8 

ent  "LATliuLE  OF  Net'  SITE  -  DEG",N[1] 
"direction  from  EwOatok  -  a  or  s": 

"  N  "  *L  $  1 1 , 1  ] 

cap( e$ [1 , 1) ) *e$ 11, 1 ] 

ent  "Longitude  Of  me!  oTIE  -  uLG",n[2] 

ent  "DIRECTION  FROM  GREENWICH-  E  OR  W",L$[2,2J 

cat  (d8  12,2]  )  *E8  l  2 , 2  j 

if  e$[2,2] ="L" ; - N l 2 ] *N  l  2  ] 

ent  "altitude  or  MET  SITE  -  KM",Nl3j 

ent  "  juuAn  DATE  Ot  MET  OoSEKvATIOn"  ,n]4  ] 

ent  "  iuLu  Tli'iL  Ot  Me!  oLSERVAT IOn"  ,  N  1  b  j 

"MET  IinPuTd": 


4u :  »_nt  "CeIeInG  -  mLTLrS"  ,A 
4i :  ent  "CLOUD  CoVER  -  PERCENT'"  ,o 
42:  ent  " vISIdIdITY  -  KM" ,C 
43:  ent  "  prECtpI  i'ATlON  -  YLS  OR  NO 
44:  Cap(L$)*D6 
4b:  ent 
4  o :  ent 
47:  ent 
4ti:  ent 
43:  ent 
80:  ent 
*21332 


,DS 


f  EM  PL  KA  T  u  ke  -  DEG  c"  ,d 
"den  POINT'  -  dEG  C"  ,  L 
"nInd  DIRECTION  -  DLG"  ,F 
"WInd  Speed  -  knots"  ,G 
"AVERAGE  RODGiiNESS  LLeMLNT 
"SLANT  RANGE  TO  TARGET  -  KM 


-  CM"  ,  Y 
"  ,0 


"  *C  $  [  4  ] 


50 


51 

■oz 

53 

54 
d5 
5b 
57 
5  3 

5  5 
b  0 
bl 
b-i 
b  J 

0*4 

o  5 
ub 
ol 
bb 
o  9 

70 

71 

72 
7  J 

/  4 

75 
7o 
77 
7  b 
7* 
60 
bl 
6/ 

63 

64 
o  5 
bb 
bl 
6b 
69 
50 


erit  "anGLu  or  iiGni'  lu  lArtut’i'  -  DEG" ,U 

it  u<0;-u-»u 

sin(u) 

ent  "DIRECTION  ot  ^InE  Of  SlGnT  -  DtG",v 
ent  "  LENGTH  of  SMOKE  SCREEN  -  METERS"  ,  h 
ent  "DURATION  of  SMwKE  SCREEN  -  Mlw"  ,T 
"l-lE  l  CAoCUEATi  JNS"  : 
it  E#lUo;9tc  "hlOUU" 
it  A>/133.  o042;  gtc  "KlOUU" 

J  ♦ro 
J  ♦r  1 

gtc  "<\1<40U" 

"KluGO"  : 

"CAEouEATL  ANGUEAk  tRACTIOw  Of  A  Y EAR  foK  A  GIVEN  JULIAN  UATE" 

(  ft  1 4  J  -1 )  *360/36  5.  242*r9 

“CAECUEATE  SoEAt\  DECLINATION  ANGLE": 

e79 .934b+r  5+tll 

rll+l.yi4b27*sin(ry)-.07952b* cos ( r y )*r 11 

t 1 1+. 0 ly 93b* sin ( 2* r 9 ) - . 00162* cos ( 2* r 9 )+r 11 

23.443s*rl2 

sin(rl2)*sin(rll)-»rl3 

asn ( r 13 ) *i 15 

"CALCULATE  TIME  Or  MEkIuIAN  RAobAGE  -  TRUE  SOLAR  NOOw": 

i2+.12357*sin(ry)-.0042by*cos(ry)^rl4 

cl4  +  .l53o0  9*sin(2*  t  9 )  +  . Ob 07b 3* cos ( 2* r 9 )^rl4 

"CaECueATE  boLAR  nouR  ANGLE": 

15*(n151-c14)-u121+c15 

"CALCueA'IE  SooAr  ALill udE"  : 

sin  (n  11 1  )  *sin(  rl3)  +cos(N  [1 J )  *ccs  (r  1 3 )  *cos  (  rl  5)  ♦rib 
asn ( r lb) *c lb 

"calcueatl  Insolation  oeass  numoer": 

o  *i  l 

it  r ib>60; 4*rl ; y tc  "K1100" 
it  r lb>35; 3*r 1 ; gtc  "K1100" 
it  rlb>15;2*rl;gtc  "K110U" 
it  r  lo<=0  ;  gtc  "K13U0" 
lTl 

"  K 1 1 0  0  "  : 

"CALCULATE  NET  RADIATION  INDEX  f OR  LAYTIME": 

0  ♦!  2 


91 
9  2 
9  3 
54 

y  5 
yb 
5  7 
y  6 


it  o<=5U ; rl*r 2; gtc  "K12U0" 

it  A<2133 . ou42; c l-2»r 2 ; gtc  "K1200" 

if  A< 4b7o . bOyb ; r l-l*r 2; gtc  "K1200" 

if  u=100; rl-i+r2 

"K1200" : 

if  r2=U;rl*r2 

if  r2<l;l*t2 

r z  +  ro ;g  tc  "K1400  " 


y9:  " K 1 3u 0 "  : 

100:  "CALCULATE  NET  RadiATIon  IwDEA  rOK  WIGHT  TIME" 
101:  ii  e<40 ;-2*r0 ;gtc  "K14U0" 

*  lb4o 2 


51 


10  2 
id  3 
ill** 
105 
iOo 
10  7 
10b 
10:* 
110 
111 
112 
113 
11** 
11d 
lid 
117 
lib 
110 

1 20 

121 
122 
12  b 
124 
12b 
12b 
lz7 
i<:0 
12  0 
13u 
Ul 

132 

133 
J.  3** 
l  Jj 
1  3o 
137 
1  Jo 
US 


-  1-»L  J 

V 1 4  0  0  "  : 

"CALouoAlb  t-rtuwUiLL  olAolUl'K  CATLGOHY" 


0  ♦ 

c  4  ;  0*  t  3 

It 

ru=4  ;  1*14 

it 

c  0=3 ; 2+C4 

it 

c  0  =2 ; 3-C4 

It 

r0=l; 4+C4 

It 

rd=o; b»C4 

if 

C0=-1 ;b*t4 

it 

t0=-2;7*r4 

if 

G<2;  l-*-cb;gtc 

"KlbOO  " 

if 

o<4;  2-*-c  bjgtc 

VI 50  0" 

if 

o<o;3-»r  5;gtc 

VI 50  0" 

it 

G<7;4+r  5;  gtc 

"K15UU" 

if 

G<d; b^c  b; 9tc 

"KlbOO" 

it 

o<10 ; o-*-Cb;gtc 

"KlbOU 

it 

G<11;  7-*-tb;g  tc 

"i\l  50  0 

if 

G<12 ;b-*-rb;gtc 

"KlbOO 

'i*t  b 

VlbdO"  : 

"CAuCuoAl't,  KLoA'l'i  V  L  hUWlUi'i’Y"  : 
it  u>0  ;g  to  VlbOU" 

J  .  b-»cd  ;  2bb.  b-*r  1 
yto  Vl7u0" 

"  K 1 1>  0  0  "  : 

?,b*ru;237.3*rl 
VI 7  u  0 " : 

it  o>u;gto  Vlboo" 
o  .  d*c2  ;  2fab.  b-*c  3 
gtc  VlyuO" 

Vlooo" : 

/ .  b-»c  2  ;  2  37  .  J*t  J 
"  K 1 0  U  0  "  : 

o  .11*10  ~  (io*o/  ( tl+L>) )  -*>r4 
o.ll*10''(r2*o/(r3+0))*rb 
r  d/c  4*  10u-*-w 


140 

141 
1  **  2 
14  3 
14  4 

1  4  3 
14b 
1**7 
14b 
14  -J 
lbd 
lbl 


txo 
yt  t 
bt  t 
t-tt 
t*tt 

yzt 
pr  t 
pit 
pc  t 
pc  t 

pet 

pet 


iji 


*  iuooo 


pet 


I 

II  II 


iiOi'i  11  iO^  " 

"  oKiVixUlluKhs" 
"  cok" 

"  tiC  Aau  wt'" 

"  bhuKL" 


1  u  =  "  (t  A  9 

uA  i  =  "  t.fcib  1 1 , 1  Ustt  (is  1 1  j ) 
uomG  =  H6ibbl2,2](jiStt(atis(i\il2])} 


5  2 


I 


\ 


J 


1d3 

154 
Ibb 
1  bo 
157 
ibb 

155 
lbO 
161 
io2 
lb  J 
164 
lb  b 
lob 
lo7 
Ibb 
16'5 

170 
1  /I 

17 1 
1  /  J 
174 
17b 
17b 
17  7 
17b 
i7y 
Ibb 
lbl 
io2 
lb  J 
164 
lob 
lob 
lb  7 
lob 
Ibb 
iyu 
lbl 
152 
lb  J 
154 
15b 
Ibb 

15  7 
1 5b 

16  5 


Rt  t 

"aLt 

pr  t 

"  OAib 

Ft  t 

"  T  1;4L 

ptt 

"Go  1L 

jjt  t 

"  JKY 

pet 

"  V15 

pr  t 

"FRLoiF 

ptt 

"TbrlF 

ptt 

"  iu 

prt 

"no 

pr  t 

"  I'.G 

ptt 

"a  KL 

prt 

"  Fbo 

prt 

"Ra 

prt 

II  tl 

prt 

II  II 

=  "«.str  i.L*[  3J  ) 
="&str (rtl 4] ) 
=  " &str ( u  L  b j ) 
=  " &S  tt  (A) 

=  "  <»SLt  (tl) 

=  "4<str  (C) 

=  "6.0$ 

«" 6tstr  (u) 

=  " fcStr  tb) 
="&str (F) 

= " &stt (G) 

=" bscr ( Y ) 

=  "  &ii  $  l  n  ,  h  ] 

=  "&s  tr ( w ) 


"A ThoSFhbKlC  OFi'iCa  CAbGuoAiluaS"  : 


ln(C) +  r0 
ro*rO*rl 
r  1*  ro  -»r  2 

1.5551-.y8ll*rG-.0l97*rl+.0041*r2+Fllj 
e*t(t'UJ)-t  llj 

1 , 50  381511- .  562319519*1 0- .01557 2bUl*  tl+ .00366  583*  r 2+F 1 2 ] 
exp(F [2\ ) -t Uj 

1.2 5  54-1. 04  36* r0  +  . 00  59*  tl- .0016*r2-*-Fl3J 
exp(r  151 )  +  r l 3  J 

1 . 517b-l.  714  7*r0  +  . UGul*  rl+.04  2b*  r2*Fl4] 
exp(F  1 4  ]  )  ♦  F  1 4  ] 

1.330b-.862:)*ro-.o753*rl+.G12y*r2-*-Gll] 
ex^  (b>  llj)  -*G  tl  1 

1.4b  1551  7o7-.y22b5b5*ro-.0b55oy4l7*rl+.013680422*r2-*’Gl2J 
exp  (G  1 2  J  )  ♦G  l  2) 

1. b 556-. 5  013* ro-.u  /  73*  1 1+ . 0 173* r2-G  1 3 j 
exp(G[3] ) ♦G l 3 1 

1. 562b-. jj 5b*  ru-.0o27*rl+, 0168* r2*G [ 4 ] 

exp(G 14  j )  +  0.  1 4 ) 

o-*to 

it  u #0  ;  1/  u-*r  b 

"oaoCuLA'il  tHui.lt1  LiAl>L,l  WA'I'LK": 

.  4  47  7  +  .  0  326*0  +  ^.  2e-3*b~2+l.  b4e-b*b~3-*i:  11 
"GAoGuLArh  AwuuaY  Ot  aA'i'bR  VAFoR  iu  FA'ln"  : 

0*1 0  jU  +  r 1 ; ro  ♦  r2; . b* ( rl+r 2 ) *i 3 
r2-rl-*r 4; . 2o8o751*  r4*rD 
.  3*  r  4*  (  'r.'m'  (  r3+t  5)  +  'tuA'  (r3-c  5)  )*t* 

Cll*C5^llO 

"oaoCuLAY  L.  rKnabAil 1 AaG b  tut  viiiuLt  -  abAR,  Mio  AMU  JrAR  1R" 
lot  1=1  to  4 


200 
20  1 
102 
203 
*  12? lb 


"GAuCubA'i  u  1'hm'iS.iii'lAaCb  ot<I5b  to  A  ri'LaoA  I'iON  bY  aAY'LK  vAFOR 
l£  1=4 ;exp (- . Oool*  tlO)  *o  [1  ,lj  ;  yto  "rv2600" 
o  1 1 1  *  y  (  r  10*  n  )  /  2+  ro ;0*tl;ro*t2 


b* ( rl+r  t) *t 3 


53 


(e3-e  3)  )  ♦t!2 


OhImG  10  Ai'TbWuATlO^  BY  nA^b  AMU 
"K2yU0" 


(c  3-e  5) ) ♦cli 


(E3-L3) )-r!5 


E  4.  —  C  1*  E  4 
. l obo  7  d1 *  E  4* E  o 

.3*  E4*  (  'tctu'  (  Ej  +  E  a)  +  'rrtb  '  (EJ-E  3)  )  ♦  E  1  2 
2/v  'ii  *r l2+o  1 1 , 1  j 
l-o  [  i  ,  1 J  ♦o  l  i  ,  1 J 

"i\2bUu"  : 

"OaLCubAYl.  inAwoi-tiii'AwCc.  OhImG  10  A'iTtwuA'i'lO^  BY  nA^b  ANb  tOG.": 

ir  ;1»ol1 , 2]  ;gtc  "K2y00" 

it  C>  =  L  l  i |  ; ytc  "K28GU” 

ro-*-tu  ;u*El;  Eu-*-r2 

.  3*  U 1+e  2 ) ♦e  j 

e2-e1-*e4 

.2bb6751*E4*E5 

.  3*  r  4*  {  V.»G  '  (  e3-*-e  5)  +  VwC  '(e3-e5))*e13 

ex^-  (-r  1 1  J*  e13)  ♦rl<* 

o-eg*eu ;  ca*cl;  e b+  eu ♦  e 2 

.5*U1+c2)-*’E3 

r  z-rl*E4 

,xtibo7bl*  E4*E  5 

.  3*  E  4  *  (  'rub  '  (  rj+E  3)  +  'r  ub  '  (  ri-t  3)  )*E  15 
ex^ (-. 12a*  rl3) ♦  r io 
E  14*  t  lo*o  1  i  ,  2  J  ;  gtc  "hX^GG" 

"tvxauu  "  : 

o-*e  u  ;  u*El ;  ru  ♦  ex ;  .  5*  (  Ei+r 2)  *i  3 
r  2-El*r  .  2obo751*  r4-»r3 
.  a*  e 4*  i  'r  uu  '  (Ei+r  5)  +  'tub  '  (  ri-r  5) )  *e17 
ext-l-r  U]*El7)-»oli  ,2] 

"  A  2  G  G  "  : 

“OALCijliAIe,  i'rtAuSM  i'Y  AuCL  ui'.luO  Tu  AT  'ft  e*  OAT  i  Ui*  BY  BKtC  i  Bl'lAx  J.UM  "  : 
it  ub="uu"  ;  1-»lj  l  i  ,3  1  ;  gtc  "K31G0" 
it  0>2(J  ;  l*o  1 1 , 31  ;g  tc  "A31uG" 
oxjc(-u*uUJ  J-o[i  ,31 

"  A  J 1 G  U  "  : 

"OaLCuLaiL  iKAnawiVTANlt  UnluC  i’u  AT  i'bwUATION  aY  Bi'iOKB .  "  : 

X  u  1/(0  n,  iJ*oli,  21  «d[1, 3]  )  -Bli,  4) 
it  oii,4j>l;i*ull,4] 

"bAiCuLA'ii  niut,  Ur  BiOiii  i  u  i  GO  tvATou  CuuCbul’kAriOu  . "  : 
it  u [ i , 4 1 #0 ; y to  "a34UU" 
tuE  o  =  l  tc  2;u*ClIfjj 
next  j ;ytc  "a347d" 

"A34GG " : 
tcc  J=1  tc  2 

it  u  l  j  ,  i  J  =U;  \j*C  [  1  ,  o  J  ;  y  tc  “K345G" 

in  (o  l  i ,  4  1  )/-iilu,il-CU,J  J 

"K343G" : 

next  j 

"A3475 " : 

next  i 

"AiMUaWlhit  uir'r  UoiUiM  CALC U L ATI OMo"  : 

1U“  l-l.  24  +  1.  iy*icy  (Y)  )  +it 
acsiv-r )  ♦  Eb 


" K345G " 


lo  4  bll 


>4 


<.  j  ‘ j  : 

2  jo  : 
z  o  l  : 
z  jo  : 
..55: 
zou  : 
Zo  i : 
Z6Z : 
zo  3 : 
zo  4 : 
Zo  J : 

Z  0  0  ! 

Z  o  /  : 

1  6  S : 

Zo  j  • 

Z  7  o  i 

2  71  : 
27z  : 
Z7 1  : 

Z  7  4  : 

Z  ■'  J : 

2  7  o : 

Z  7  / : 

2  7d  : 

2  7*: 
200  : 
Zb  1 : 

2  0  2: 
zb  J  : 

Zb4 : 
Zb  j: 
2bb  : 
Zo 7  : 
zb  o  : 
Zb  7: 
2*  o  : 
2*1  : 
z  *  Z  : 
2*1  : 
z*4  : 
2*5: 
z*o : 
2*7  : 
z  *  b : 
z*y : 
30  0  : 
Jol: 
10  2: 

1 J  3 : 
JO  4: 
10  5: 

*  Z3  5b 


i  (ll.o*/ill.b**sin(cb)*&in(tb)+ccs(rb)*cos(cb) ) )  +rl5 

I  .  0  *  J  Z 1  * 4  7  .  0  2  *0  b o *  4 *  * -4 . 5 5  7  *e-  4  *  w*  w+4  .  b  2e-b  *U* 0*  1 1  j 

1.  jb40J*144  +  .0oUjU2  571*w_l»  iJ3ole-3*w*o+l»33a42e-5*G*0*  l  2  ] 
n  i»i,  l  ]  +  h  in ,  zl  *  z+k  in ,  1 1*  i“z*ta 
JU  l  a ,  1  ]  +  a.  I  n ,  z]  *  z  l  (  n  ,  3  ]  *  z  ~  2  r  1 0 
l/clu*cil 

II  0  =  0  ;  l**o 
. 5 1 j  *o* r i o 

lot  1=1  1C  4 

“ortLoULAiL  tKOoon  iHU  INTEGRATED  CONCENTRATION  FOR  WP  SMOKE"  : 
lot  tv=l  to  Z 

it  l  <  3 ;  i i  t i > 4  ;  9 1 c.  "kj5U(j  " 
u[rv,l]  +  .74*0liil*lUU  .  5*14 
uli\,z|  +  .bo7*ry*10Q'>rlU-*-!5 
Vi  l  ri  j  *  M  (  2 1  *  S  lK,Z)  /  (n*r4*tS)-»v  IK] 

"*3500"  : 

"huv  ITTIon  dXREnu  1  i'o  RE  CALCULATIONS": 
it  l>2;gtc  11 K  4 10  U  " 

"CALCULAih  INITIAL  SnoLL  St'AClNG  FOE  RC  SMOKE" : 

Cib*45-Y  1 1 , 1  ,K ] 

" CALCULATE  SUSTAINING  SHELL  SPACING  FOR  HC  SMOKE": 
ll  C i 1 , 1 ) *0 ; gtc  "K36U0" 
u ♦¥ 1 1 , 2 , K ] ; gtc  " K 3 7 0 0 “ 

" K  3  ouu " : 

1/t  15*  (.731*1  lK]*Mll]*S[K,H/(CU,U*Cl6*c9)  ) ~r 11+ Y U , 2 , K 1 
ll  1’  U  ,  2,  K)  >R;  R+Y  1 1 , 2,  k) 

"  K  3  7  0  0  "  : 

if  YU,2,K]=0;l+vU,l,K,iJ+wU,2,K,ij;gtc  "K40U0" 

"calculail.  initial  volley  for  hc  smoke": 
if  U  1,1,  El  >7  (1 ,2,Kj  ;Y[i,2,K]+YU,  1,KJ 
k/\  1 1 , 1 ,  K  ]  *•*  1 1 , 1  ,K  ,  1 J 

1L  trc(wU,  1,K,  1 J )  >0;  int  (vll  ,1,  K,U  )  +l+oU,  1,K,  1] 

"calculate  nlmslk  of  guns  ior  sustaining  volleys  (hC)”: 

K/I 1 1 , 2,  K  J  ♦*  1 1 , 2,K  ,  1] 

if  1  rc(wU,2,K,U)  >0;  int(wU  ,  2,  K,1  J )  +1  +  GU.  2,K,  1] 

"K4  ;  0  Q "  : 

"  K  A  i  E  OF  rlKL  toil  OC  SwoKE"  : 

.  D-»t';if  C 1 1 , 1 J =0 ;0 *P 

"CALCULATE  TOTAL  nui>ILEK  OF  ROundS  REwUiRED  (HC)": 
oU,1,k,1]+oU,2,k,11*  (p*t-1) +  R  1 1 ,  K,  1  j 
if  ftc(t'll,K,U)  >0;  int(t'[i,K,li)+l-P(I,K,l] 

"K4  100": 

it  i<J?it  n>4;gto  "K4300" 

"SaELL  SPACING  Ut  J)  b  VOLLEYS  (wl  j)  -  NP " : 
it  C  (1, 2]  ffO  ;  g to  *' K4  120" 

0  + z 1 1 , 1 , M  +  Z 1 1 , 2,K J 
0+uU,1,n,2)  +W  U , 2 , K  ,  2 1 
gto  "r4 lbo " 

"K4  120"  : 

it  1>2;  .  b*Cli  ,2) /vlKl  *wU  ,1  ,K,2J  ;gto  "K4140" 

VU1/CU,  21*100-211,  lfKl 
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30u:  l l 1 , 1 , Kj ♦2 l I , 2, KJ 
307:  k/z.  l  i  ,  l,  K]  +wl  1 1 1 /K,  2] 

3ua:  "K4140": 

309:  int(wli#l.K,21  )*rl 
310:  it  t  rc  ( w  1 1  / 1  *K  ,2]  )  >0  ;  rl+l-*rl 
311:  rl*wllflfK,2)*ull,2,K,21 
312:  "K4 18o "  : 

313:  "KAIL  OF  FIRE  FOR  wP  SMOKE": 

314:  if  CU,2]=0;G-RU,K1  ;gtc  "K4200" 

31b:  it  1  >2 ;  120/r lb*R 1 1 , K  ]  ;  g to  "K4190" 

316:  (ZlIf2,Kj+oO)/rl6*R[i,Kl 
317:  "K4190" : 

316:  Kli ,K]/20-k11,K) 

313:  int (Rl i , K) ) +r0 

320:  it  f tc ( R U ,K ] ) >= . 5 ; int( R[ I f KJ ) +l*r0 

321:  if  rO=Q;l*ru 

322  :  r0*20/60-RU,KJ 

623 :  1/Rl I , h j+Kl I ,K  j 

3z4:  it  R l i , KJ  <1 ; 1*R [  I  ,K ) 

325:  "  K  4  2  0  0  "  : 

32b:  " CALCULAl  E  TOTAL  NuMbER  OF  ROUNDS  REQUIRED  (WP)  " 
3^7:  it  C  U,  2]  =0;  0-P  (I  ,K,2j  ;gto  '*K4500" 

32b:  Qli,l,K,2J+Q[i,2,K,21* (T*R [I » K J -1) *P{ I , K, 2] 

329  :  it  I>2;qII,2,K,2J*  (R/6  0+1)  *  (T*  A  [  I  ,K  ] -1 )  *P  U  ,  K ,  21 
330:  if  frc(b [1,K,2] ) >0; int(P[I ,K,21 )+l-P[I,K,21 
6  31:  g  to  "K4  50  0 " 

332:  "K4300" : 

333:  "CALCULATIONS  FOR  WF  £  &  F  STABILITY  CATEGORIES" 
334:  "Initial  SnLLL  spacing  -  WP  SMOKE": 

335:  it  1  =  1;  if  K  =  1 ;  100  -2  [1 , 1 ,  Kl 

33u:  it  1=2  ;  it  K=1 ; 50-Z 1 1 , 1  ,K 1 

3  37:  if  1 <  3  ;  i  t  K=2 ; 100*Z ( I , 1 , K 1 

33b:  " SUoi'AiN InG  SHELL  SPACiNC  -  WP  SMOKE": 

639:  it  1=1; if  K=1 ; 100 ♦2 l I , 2 , Kl 
34u  :  if  1  =  1 ;  it  K=2  ;200-*ZlI  ,2,KJ 
341:  if  1=2 ;  i f  K  =  1 ; 50-2 [ I f 2 , Kl 
342:  it  i=2 ; if  K=2 ; 100 *Z ( I , 2 , K J 
343:  "INITIAL  VOLLlY  -  WP  SMOKE": 

344:  r/z.  1 1 , 1 ,  K)  +l-*v  l  i  ,  1  ,K  #  2  ) 

3  4  j :  "SUSTAINING  vuLLLY  -  WP  SMOKE": 

34  o:  K/ 2 1 1 , 2 , K 1 + 1 ♦ w 1 1 #  2 , K , 2 1 
347:  "KAiE  OF  FIRE  -  N P  SMOKE": 

34u:  if  K=1;2-»r(1,K] 

34  9:  it  K  =  2 ; 1 ♦ R l i , K 1 

35u:  " Tu'lAL  nU.1l.ER  OF  WP  ROUNDS  REQUIRED": 

3  51  :  wl  I  #l#K,2J+QU#2,Kf  2J*  (T*RII  ,K]-l)*Pl  I,K,2] 

352:  "K4500": 

653:  next  K 
654 :  next  1 
35b:  txu  0 
35b:  ter  1=1  tc  4 
*  7502 
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3  37 
353 
o59 
3bu 
3ul 

362 

363 

36  4 
36b 
3  u  6 
ju7 
3cd 

369 

370 

37  i 
37  3 
3  73 
374 
37  3 
37b 
377 
o  7d 
37  y 

3dU 
36  1 
363 
3  b  3 
36  4 
3o  D 
3d6 
3b  7 
366 
3b9 
39  b 

391 

392 

393 
39  4 


pc  t 
pet 
pt  t 

pet  "  "  &C  6  1 1 1 

pc  t  "  " 
pc  t  "  " 
pet  “  SCi-etiV' 

pet  "  LL^GTii:  "&str ( int ( R) ) 
pet  "  uuRATIow: " istr ( int (T) ) 
tee  j=l  tc  2 

if  J  =1 ;  it  1  >2 ; gtc  "FIRST  K" 
pc  t  "  " 
pe  t  "  " 

pet  c‘6lJ]&"  Si-iUKE  SCREEN" 

"rT  hST  K": 
tee  K=1  tc  2 

it  J  =1 ;  it  1  > 2  ;  g t c  "NEXT  K" 
if  1 > 2 ; g t c  "M&F  IP" 
pc  t  "  " 
pc  t  "  " 

pet  "  "&GSIKJ 

pe  t  "  ** 

pet  "vuLLeY" 

pc  t  "  " 

pet  " 1NT1AL: 

gums" 

"&ste (w (I #1 #K«J  1  ) 


pc  t  " 
pc  t  " 
pe  t  “  " 
pet  " 
pet  " 

if  J=i;pet 
it  J  =2 ; pc  t 
pc  t  "  " 

pet  "SUSTAINING: " 

pet  "  GunS" 

pet  "  "4str(w|I,2,K,J]  ) 

pe  t  "  " 

f  xd  1 


bt'AC  InG" 
mETERS" 

"&5tr ( Y(I,1,K] ) 
"  s>str  ( Z 1 1 , 1,  Kl ) 


3y  5 
396 
337 
39o 
3v9 

400 

401 

402 

403 

404 
403 


pet 

pet 

if 

if 

pet 


»• 


0  =1 ; pc  t 
0  =2  ;  p  c  t 


f  xd  0 


pet  " 
pet  " 


it  0=1;  pet 
it  o=2; pet 


pet  "  " 


40b :  pet  " 
407:  pet  " 
*16000 


RATE/" 

mIN" 

"fiiSte  (P) 

"&str (R[i,K) ) 


STAG InG" 

METERS" 

"&stc(YU,2,Ki  ) 
" &StC ( Z l i , 2, K] ) 


RuuwoS" 

"S.StC  (R  ( I  ,K  ,0  j  ) 


< 


1 


1 


! 


40b 

prt  "  " 

4U3 

if  i<3;gtc 

"NEXT  K" 

410 

"M&r'  xk": 

411 

pr  t  "  " 

412 

pr  t  "  " 

410 

prt  0$  IK ] & 

II  ,  ll 

414 

prt  " 

HOUNDS/" 

415 

prt  " 

60  METERS" 

416 

prt  ” 

"&str  (Q  [1 , 2,  K,  J ) ) 

417 

prt  "  " 

4  lb 

£  xd  1 

419 

prt  " 

KATE/" 

420 

prt  " 

MINUTE" 

421 

pr  t  ” 

"filStr  (Hi  I  ,  H]  ) 

422 

prt"  " 

420 

1  xu  0 

4^4 

prt  “ 

TOTAL" 

425 

prt  " 

KUUNUS" 

420 

prt  " 

"&str  (dl(KJ}  ) 

427 

prt  "  " 

426 

"nlXT  K " : 

42* 

next  K 

4  3u 

next  j 

431 

nex  t  i 

402 

pr  t  "  " 

433 

pr  t  "  " 

404 

asp  "Done" 

4  05 

enc. 

4  00 

"  t  UlnCT  IOisS 

«  . 

• 

437 

"?H A" : ret 

exp (-u*pl/2) 

4  3b 

"t  NO"  : ret 

exp  (-pl~2) 

400 

" tNC" : ret 

e  xp (pi*  u* ln( . l/E [ 1 ] )  ) 

440 

"t  no" : ret 

exp(-pl*  u/4 . 1) 

*  02  70  7 
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i 


* 
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APPENDIX  E 

CRT  KW1K  ALGORITHM 
GLOSSARY  OF  MNEMONICS  (HPL/HP  9825A) 


1.  A 

Ceiling  -  feet 

2.  B 

Cloud  cover  -  percent 

3.  C 

Visibility  -  miles 

4.  D 

Temperature  -  degrees  Fahrenheit 

5.  E 

Dewpoint  -  degrees  Fahrenheit 

6.  F 

Wind  direction  -  degrees 

7.  G 

Windspeed  -  knots 

8.  H 

Atmospheric  stability  category 

9.  0 

Slant  range  to  target  -  kilometers 

10.  Q 

Relative  humidity  -  percent 

11.  R 

Smoke  screen  length  -  meters 

12.  T 

Smoke  screen  duration  -  minutes 

13.  U 

Angle  of  sight  to  target  -  degrees 

14.  V 

Direction  of  line  of  sight  degrees 

15.  Y 

Average  roughness  element  -  centimeters 

16.  Z 

Roughness  length  -  centimeters 

17.  A(7 ,9) 

Table  of  stability  categories  depending 
upon  solar  altitude  and  windspeed 

CD 

CO 

Table  of  transmittances  resulting  from 
water  vapor,  haze/fog  precipitation  and 
smoke  for  visual,  near,  mid,  and  far 
infrared  wavelengths 

19.  C(4,2) 

Table  of  smoke  concentration  values  for 
HL  and  WP  smoke  (by  wavelengths) 

20.  D ( 4) 

Absorption  coefficient  error  function 

21.  E(4) 

Scale  height  for  Mie  scattering 

22.  F ( 4) 

Haze  and  fog  attenuation  coefficients 

23.  G(4) 

Precipitation  attenuation  coefficients 

24.  H(2,4) 

Table  of  extinction  coefficients  for 
calculating  HC  and  WP  smoke  concentra¬ 
tions  for  visible,  near,  mid  and  far 
infrared  wavelengths 

25.  1(7) 

Graphics  scaling  factors 

26.  J(6) 

Coefficients  to  compute  sigma  y 

27.  K(6 ,3) ,L(6,3) 

Coefficients  of  roughness  correction 
factor  used  in  calculating  sigma  z  for 
the  various  roughness  lengths 

28.  M(2) 

Yield  factors  for  HC  and  WP 

29.  N(5) 

Latitude,  longitude,  altitude,  Julian 
date  and  Zulu  time  data 

30.  0(3) 

Graphics  translator  files 

31.  P{4,2,2) 

Total  number  of  rounds  required 
(initial  and  sustaining)  to  maintain  HC 
and  WP  smoke  screen 

32.  Q(4,2,2,2) 

Number  of  guns  (initial  and  sustaining 
volleys)  for  105-  and  155-mm  howitzers, 
for  HC  and  WP  (by  wavelengths) 
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33.  R(4 ,2) ;  L,  M 


Rate  of  fire  for  WP  smokes  (by 
wavelengths)  for  105-  and  155-mm 
howitzers 


34. 

P 

Rate  of  fire  for  HC  smoke 

35. 

S(2 ,2) 

Unit  (per  gun)  source  strength 

36. 

T(2) 

Munition  efficiency  for  105-mm 
howitzers,  for  HC  smoke 

37. 

U(2,2) 

WP  volume  source  sigmas  (ay0  and  oZ0) 
for  105-  and  155-mm  howitzers 

38. 

V(  2) 

Stability  dependent  crosswind 
integrated  concentration  for  WP  smoke 

39. 

W  ( 6) 

Constant  (K)  related  to  stability 
category  for  WP  smoke 

40. 

X  ( 4) 

Wavelength  threshold  levels 

41. 

YC4.2.2) 

Shell  spacing  for  105-  and  155-mm 
howitzers  (initial  and  sustaining)  for 
HC  smoke 

42. 

Z(4,2,2) 

Shell  spacing  for  105-  and  155-mm 
howitzer  for  WP  smoke 

43. 

A$(4) 

Met  site  identifier 

44. 

B$(6) 

Stability  category  indicator 

45. 

C$(32) 

Wavelength  indicator 

46. 

0$(3) 

Precipitation  indicator 

47. 

E$(2) 

HC  or  WP  smoke  indicator 

48. 

F$(3) 

105-mm  howitzer  indicator 

49. 

G$(3) 

155-mm  howitzer  indicator 

50. 

H$(2,2) 

Direction  from  equator  (N-S)  and 
direction  from  Greenwich  (E-W) 
indicators 

51. 

I 

Index  for  wavelength  algorithms 

52. 

J 

Index  for  smoke  algorithms 

53. 

K 

Index  for  gun  (105-  or  155-mm 
howitzers)  algorithms 
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u : 
1 : 
2 : 
j  : 

4: 

j : 

u : 
I: 
o : 
v : 

10 

11 
JL^ 
1  j 
l*i 
1j 

iu 

1  7 

id 
1 V 

20 

..1 

22 

2d 

24 

2  D 

2  7 
2d 

2  j 
dU 
dl 
^  2 
ud 
d4 

3  b 

j  u 

3  7 

J  o 

^  V 

*1  L/ 

41 

4  2 
'id 
4  4 
4  d 
4  o 
47 
40 
4  d 
DO 


“  Art  IK  otnOKL  EKvJGKAM  -  GKi  vEKl'lurt  (y/10/Bl)": 

uii\.  A[7»B],ul4]  *  id  l  4 )  ,  ii  [  2 , 4  ]  #  J  l  b  j  ,Klb,3],Ll6,3] 

a  iu.  u  1 4  *  4  ]  ,  C  1 4 , 2  ]  ,  r  ( 4  ]  ,  G  l  4  ]  ,  1  [  7  j  ,  M  1 2  ]  ,  w  1 5 1 

olii.  u  lb  J  ,^[4,2,21  ,  w  (4 , 2 , 2 , 2  ]  ,  K  [  4 , 2  j  ,  S  ( 2 , 2  ] 

oli'..  1 1 2 )  ,  u ( 2 , 2]  ,  V  (  2  ]  ,  u  (  b  j  ,  X  1 4  ]  ,  Y  [  4  ,  2 , 2  ]  ,2[4,2,2] 

uiu.  rt$l41  ib  1,25  l  4,81  ,u$l3]  ,E${2]  ,  1 3  J  ,G$13]  ,h$[2] 

'  i^li  iAij.  "  : 

lot  l,Al*J,ul*J  .M*J,n[*l  ,JlM  ,Al*l  ,U*J 
"  G  KARti .  TKArtO.  riLE  ol2Eb": 

4  3-o  1 1 J  ;  yOS-u  [  xj  ;  1100-Kdl  3] 

"  Ui'tii  SKo.  StKow.": 

lo.7*oll,lj  ;1737. 3*3  U#2J  ;77.1*S  12,1]  ?707b  .2*5  [2 ,2) 

"  .<lurt.  Lit.  t  oK  LtC  oMOKE": 

. 4*i  iij-ruj 

"  voii.  jkC  .  oiG.  t  ok  nr  3KuKo“ : 
d . 4-u l 1, 1 J ;7.y-ul2,l];l.b-bll,2] ; 2 . b-u [2 , 2 1 
"  dUtvoT  b  •  RELATED  iu  Si  Aid ,  EUR  Wf  Si'ik"  : 

.  J 1  o  ♦  v.  HJ  —  v.  I  2  j  ♦*%  [3j  -w  l4j  ♦  w  13]  ♦  v,  [6  ] 

"  nVL  iuuLS  LEvEub" : 

.  o  D- a  il  J  -  A  l  2  J  -X  l  3]  -A  l  4] 

"  Di'/UdoIY.  CAT.  irtL».  "  : 

"  mL>Cl/E  t‘"  *u  S 
"  .'W  L  1  re IGA  i'ok "  : 

"  v  1  o  1  o  LE  :  "  *C  $  1 1  ]  ;  "  k  E  A  R  Ik:  "-C5  12]  ;  "Mil)  1  R:  "*C$  1 3]  j  "  EAR  1R 
"  oliK  ulvkY  Sib  IMAMES": 

"  lU  D  "  -r  b 

,,155"*GS 

"  LA'T/LUrtG  L> L  ELI'  DRoTNS  .  "  : 

"  rtb "-lib 

"  irtii  i;\L .  DISK."  : 
ell  7 

»U)  7i o ,  3,  2U  ,  13  ,  lu  , " en.: :  en:  :  ex :  :  sn :  :sx : :  uir. : :  " 
i  ru  t  1,14.0,"," 

Wfl  7 1 o , " 1 1  OUUo," 
lot  i=i  to  3 
l  -i-j 

wit  71o.l,"nl",j 

tor  a=1  to  oil) 

w  1 1  7 1  d ,  "  i>e  J  , : :  t-uU  ,  u ;  " 

at  At  X 

wit  7  lo,  "  sn" 

a  t  x  t  i 

"uti.  uibt'": 

i.l*i  1 1 1 

d  .  3-1  U) 

1 J  22/ 1 1 1 ] -1 13] 
iu2d/ 1121-114] 

"JokLYU"  : 

»tt  /lb,  "etO , : :tiU, :  :cf 0," 
oil  '  T1TL.E  '  (0  ,b  ) 

wtb  71o,"t>el,  :  :txMurtl'flGrt  EX  Rond  ITU  RES"  ,3,13,10 


*21223 


"-C5 [4] 


« 


62 


t 


tl 
I ! 


■j  I  - 

•j  3  : 
j*i : 
j  b  : 


CJ.1  i^LAi'Lii^b  (l.b) 
wtb  7ia,  "pei ,  :  :tx  tun  ac  AwE  OP  SMoKE 
w £  t  7 1  o  ,  "  uib  , " 

" L-i L  i  ali'L  iWro" : 
or.t  ">nTT  bllL  iu"  ,A3 


" ,3,13,10 


JO 

o7 

3b 
b  b 
uu 

ul 

U  i. 

O  3 
u  4 

O  J 
oO 

0  7 
o  L 
0  J 

/  j 

71 
7  2 
7  3 
7  4 
7  j 
7  o 
7  7 
76 
7y 
60 
ol 
o  2 
6  J 
o4 


cap  (h3  )  ♦  /■\3 

ent  “  uA  i  iTuuc.  ct  Mb  r  bl'ia  -  ut,u"  ,  w  1 1 J 
"  u  i  nbei  lew  r'KOM  EvuATuK-  N  or  3"  : 

"n"-ESU,1J 
Oup(ii3(l  ,  1  j  )  “*n  3  [  1 1  1  i 

cat  "  OONGI'TodL  ut  ML'!  SiTL  -  DbG",K[2] 

ent  "  o  l  hbC  1 1  Ok’*  ERom  oKbbNtoiCii-  L  or  w"  ,  ri3  1 2 , 2 1 

Cup  (li 3  l  2, 2)  )  ♦il  3  t  2 , 2 ) 

it  A3  i  2, 2]  *"  b"  ;-N  1 2]  +.h  1 2  J 

erit  "rtLTiTuou  or’  MET  3 1TE-KI LOMETErS"  ,  N  l  3  ] 
cat  "JUiilAw  uA't'L  Ob  Mt/T  GiiSLKVATiUV  , n  1 4  J 
ent  "2uLu  TIME  Ot  MET  o^SERVATIOn-HR"  ,  w  [  5  ] 

".-.n't  i^ruio": 

ent  "CuiLiiiMO  -  bbET"  ,A 

rt*  .  30  4  8  -*A 

ent  "CLuUJ  CoVEk  -  EERCEkT"  ,o 
er.L  "  viSitii  bii'Y  -  Mi  Lb  j"  ,  C 

u*  1.0  1*0 

ent  "  t’KuCii'i  irtl  lOiN  -  Y  L3  ok  WO”  ,03 
ca^  (03)  -*03 

cat  "  TewklivATuRE  -  UEG  b'",u 
d/  j*  (u- 32)  *u 

ent  "l»e^  KctWT  -  ulG  t’",b 
V  ** ( e-32 ) ♦£. 

ent  "V.iwu  uikcCTIon  -  uEGb"  ,t' 
ent  Greeu  -  Knots”  ,0 

ent  "rtVe  KOUGriWeSS  ELlMEwT  -  Cw",Y 
ent  "SEA NT  RAwGo  To  TARGET  -  KM",0 
ent  "akGLE  Ot  SIGHT  TO  TARGET  -  uEG",l> 


bb 
ti  b 
8  7 


it  U<U;-U-*’U 

otn(u)*u 

ent  “EiKECilON  Or  Li wE  Ob  SIGHT  - 


bb:  ent  "oCkEEk  LeNGTu  -  METERS" ,R 
oj:  ent  "ourATIon  -  MINUTES" ,T 


be 
j  i 
3  2 
bb 
J<i 
jj 
'jo 

b  7 

30 


"uoklYI"  : 
iiiit  1 ,  L  b  .  2 , 1 D 
Lint  2, 1 7. 2, 10 

t  ait  3,  t  3 . 0  ,  lb 

wrt  71b ,"btO , : :erl, : : f f 1, : : bf 1 

Oil  'LINE  '  (U  ,  5) 

wtb  7 lo, "pel , : : txio 
oil  ”  wEA'i  Line  ’  ( 1 . 3) 
wrt  71b  .  2 ,  "  pel ,  :  :  txEATl'i  UuE 


by 


oii 


10U:  wrt 
101:  cii 
*  zo  2 1 0 


'neXT niNt  '(l.b) 

718.2  ,  "  pel,  :  :  txLoixGiTuOE 
'nEXTE iNt  (l.b) 


H 


0  EG  ",  V 


-  oCG 
-  DEG 


", A$, 3, 13, 10 
=  ",H5llfll, 
=  "  ,li$  [2 , 2) 


i !  1  )  ,  3 

N12)  ,3 


Iu2:  wi  t  716.2,  "pel,  ::  txADTiTuuE 
103:  ell  'NtXTLiwE  '( 1.  b) 

104:  wet  716.3,"pel, : : txUULlAN  DATE 
10b:  Cll  NbXT iii Nt.  *(1.6) 

10o:  wrt  716. 3, "pfel, : : txz-DDD  T I ML 
107  :  Cll  'nEXTL1wE'(1.  5) 

106:  wet  716.2, "pel, : : txCEILlNG 
100:  cll  'wLXI’LInE' (1.  5) 

110:  wrt  716 .2 ,  "pel, :  :  txCliOUU  COVER 
111:  cll  'wEXTLINL  '  (1.  5) 

112:  wrt  716 .2  ,"  pel,  :  :  txviSIiil  L1TY 
113:  cll  'UEXTDiNE  '  ( 1.  5) 

114:  wtD  716  ,  "pel,  :  :  txPKLClPlTATlUw 
lib:  wtb  716,3,13,10 
lib:  cll  'nEATLInL  '  (1.  5) 

117:  wrt  716.2,  "pel,  :  : txTEMPERATURE 
116:  Cll  'NEXTHNL  '  (1.  5) 

110:  wrt  716. 2, "pel, : itxOEwPOlNT 
120:  cll  'wEXTLINE' (1.5) 

121:  wrt  716. 2 , " pel, : : txhIND  DIRECTION 
122:  cll  'nEXTLInE ' (1. 5) 

123:  wrt  716 .2 , "pel , : : txWlND  SPEED  ”  KNOTS 

124:  cll  'NDXTLINE'  (1.  5) 

125:  wrt  716 .2 , "pel, : : txAVE  ROUGHNESS  ELEMENT  -  CM 
1/6  :  if  h $  [  2 , 2 1  =  "  E"  .  -N  [  2  ]  *N  [  2 ] 

1/7 :  "MET  CALC": 

1/6:  if  u*100;gtc  "K1000" 

I/O :  if  A>2133.b042;gto  "M000" 

130:  O-tO 
131:  0-»rl 
132:  ytc  MKl400" 
i33:  "KluOO": 

134:  " CAbC  ANGL  FRAC  Or  A  YR  FOR  A  GIVN  JULN  DATE": 

13b:  lwl41-l)*3b0/365.242-r9 
13b:  "CALC  SOcAR  uECL  ANGLE": 
i 37:  279.9348  +  r  9->rll 

136:  r  11  +  1. 0146 2  7* sin ( rO) -. 0 7 9525* cos ( r 9 ) ♦r 11 

13b:  e  11+ . 0 19 936* sin ( 2* r 0 ) - . 0  016 2* cos ( 2* r 9 ) ♦r 11 

14o:  /3.443b*rl2 

141:  sin(r  12)  *sin(  rll)  ♦rl3 

142:  asn ( rl 3) ♦  r 1 3 

143:  "CALC  TIME  OF  MLR  I L  PASS  -  TRUE  SOLAR  NOON": 

144:  12+. 12357* sin ( r 0 ) - . 0 04 289* cos ( r 9 ) *z 14 
145:  r 1 4  + . 153809*  sin ( 2*  r  9)  +  . 0b078  3*cos( 2* r9)«-rl4 
14b:  "CALC  SOLAR  HR  ANGLE": 

147:  15* (N[5]-rl4)-wl2)*rl5 
146:  "CALC  SOLAR  ALT": 

14  9:  3 in (i+  1 1 J )  *s in  (  rl3)  +cos(N  (11)  *cos(  rl3)  *cos  ( r  15)  ♦r  16 

150:  asn (rib) ♦r 16 

151:  "CALC  iNSOL  CLASS  NUM": 

lb/:  u+rl 

*/04b6 


-  KM 

-  DAY 

-  HOUR 

-  METERS  = 

-  PERCENT 

-  KM 

2 

-  deg  c 

-  DEG  C 


",N[3J  ,3 
",N(41  ,3 
",N[5J ,3 
",A,3 
"  ,6,3 
"  r  C  ,  3 
,D$ 

",D,  3 
"  ,  b  ,  3 
",F,3 
"  » G  ,  3 
",Y,3 
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if  r  16>6G  ;4-*rl;gto  KllOO 
it  r 16>35; i-rl;gtc  "KllOO" 
if  r 16>15;2+rl;gtc  "KllOO" 
if  t  16<  =0  ;  gtc  "K 1 3U0 " 
l-cl 

"KllOO" : 

"CALC  ALT  RAL  INDX  FOR  CYT1ME" : 
0*r  2 

if  J<=50; cl*c2 ; gtc  "K1200" 

it  A<2133. 6042; rl-2+r2;gtc  "K1200 

it  *<4876.3096; rl-l-r2;gtc  "K1200 

it  c  =  100;  r  l-l-*-r2 

"K1200" : 

if  r2=0;rl*r2 

it  r2<l;l-»r2 

r2+r0;gtc  "K1400" 

"  K 1300"; 

"CALC  NCT  KAL  1 A  LX  FOR  iVl’TiME"  : 
it  3<40;-2*r0;gtc  "K1400" 

-  1+cO 
"  K 1 4  0  0  "  : 

"CALC  STAbLTY  CAT": 

0  *r 4 ; u-*-r  5 
if  r0=4;l-*r4 
it  r0=3;2-»r4 
it  r0=2;3-»r4 
if  c0*l;4-*t4 
it  r  0=0 ;  5-»r4 
if  ru*-l;b+r4 
if  r  0=-2;  7-»r  4 
if  c<2;  l-*r  5; gtc  "K1500" 
it  G<4  ;  2-»r  b;  gtc  "K1500" 
it  G<6  ;  3-*r  5 ;  gtc  "K1500" 
it  G<7 ;4+r 5;gtc  "K1530" 
it  G<8; b*r 5; gtc  "K1500" 
it  G<10; 6*r5;gtc  "K1500" 
if  G<11; 7-r3;gtc  "K1500" 
if  G<  12  ;B-*r  5  ;  gtc  "K15U0" 

9*r  3 
"KlboO"  : 

A  { r4 , r  5J+h 
"CALC  RLL  aUMLT'i  "  : 
it  u>0;gtc  "K16G0" 
J.5*t0;265.3*rl 
gtc  " K 1 7 0 0 " 

"  K 1 0  0  0  "  : 

7 . 5-*-c0  ;  2  37. 3*rl 
"  r\  1 7  0  0  "  : 

it  c>0;gto  " K 1 0 0 0 " 

9 . 5*t  2; 26  5.  5*r  3 
gtc  " K 1 5 0 0 " 


*  i  7  Ou  v 


c  U^ 
2  0  3 

20  o 
2u7 
2  uo 
2U3 
4.10 
211 
212 

213 

214 
2  i  3 
216 
217 
216 
4.15 
2  20 
4.21 
2  2  2 
4.23 
4. 2  4 
4.2  3 
226 
227 
423 
22  J 

2  3  0 

231 
2  32 
4j3 
2  34 

21  3 
23b 
237 
236 

240 


%:io00": 

7  .  3  —  c  2;  237  .  3-r  3 
■VI 3  00": 

o.ll*10“  (ro*b/(rl+Li) ) -C4 
o.ll*10“(r2*L/(r3+E))-r5 
r3/r  4* 10U-v 
ell  'uLXTLINE ' (1. 5) 

wto  71b, "pel, : :txPASyUILL  STABILITY  CATEGORY  =  " ,5 $ (H , H] , 3 , 1 3 , 10 

Cll  'nEXTLInE  '  (1. 5) 

wet  71b. 2, "pel, :  stxRELATIvC  iiuMIulTY  =  ",Q,3 

wit  718," uil," 

usp  "ConTInUc.  WHEN  READY" ;Stp 
"A'lMUoRHEElC  Ot-TiCb  CALCULATIONS"  : 
in (C ) *r 0 
r  0*  ro  -r  1 
r  l*rd-r  2 

1 .3  551-.  06  11*  c0-.019  7*rl+.004l*r2-F]ll 
ext  (c  1 11  )♦«?'  U  1 

1 . 3o  3ol311-. 99231951** ru-.u 159 72801* rl+. 00368 533* r2*F] 2] 
exp(r'(2j  )  +r  12] 

1 .2394-1. U436*rd+.  00 99* 1 1-  . 0 0 16* r  2* r‘ [ 3  ] 
e  X  p  ( t  [  3  ]  )  - 1  13J 

1. 3176-1. 7 14 7* ru +. U001*rl+. 04 2b* r2-F [4 J 
exp(r 14] )-f]4] 

1  .  33  0 o-.88  25*r0- .07  53*  rl  + . 0 129* r 2-C 1 1 ] 
ex^'o.  11]) -C]l  j 

1.4bl*ol7o 7-. 9225589* rU - . 0 6 5 509 4 17* rl+ . 01 36804 22* r2-G ] 2] 
e x p  ( C  1 4. ]  )-o]2] 

1. 5 53 o-.  901 3* CO- .u773*rl+,0173*r2-Gl3j 
exp  (G  l  3  ]  )-ol3] 

1.3 3 20-. 53 96 *r0-.0627*rl+, 01b8* r2-G]4J 

exp  (G  1 4  ]  )  -G  1 4  J 

u-rb 

if  u»U ; 1/u-r  8 

" CaLCuLA'i  L  RKEC1  RiTAiiLE  rtATEK"  : 
.4477+.d32tt*t+1.2e-3*L“2+l.b4e-5*L“i-rll 
"oAbooirtlt  Ai'juunT  ot  vnATER  VAR  OK  In  RATH": 


24  1 
2  42 

243 

244 
2  4  3 

2*40 


u-rO;U-rl;rU-r2;.3*( r  1+  r  2 )  -r  3 
r 2-rl-r4 ; . 2bo6751* r4-r 5 
.  3*  c  4*  (  't  nA  '  ( 1 3+r  5)  +  'FnA  '  (  r  3-r  5)  )  -  c  9 
r 11*  r3-r 10 

"s-AECuEATb  i  nANSin I 'TTANC E  r'Oh  ViSitiLn 
toe  1=1  to  4 


NEAR,  nlU  AND  FAR  Ik" : 


24  7 
2  4o 

ilH'J 

230 
2  31 
232 
2  33 
2  34 


"CaECueATe  '1T\An4>i*i1  I'TANCL  OhInG  10  rtTlENuATiON  dY  WATER  VArOR. 
ll  1  =  4  ;exp  (- .  ubol*  c  lu  ) -o  [  i  ,  1 J  ;  g  to  "R2600  ” 

Eli  J*y  (r  10*7i )  /2-cO  ;u  *rl ;  c0-r  2 
.3*  (cl+c2)  -c  3 
r  2-r l*r 4 
. 2  Bob  7  3l*  r  4- r 3 

.  3*r  4*  (  't  nb  '  (  c 3+r  5)+  Vnb  '  ( r3-c  5) )  -r  12 
4./y7i*r  12-Bli  ,lj 


*1246  3 


••  . 
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2 5b: 

c.  9b 

2  57 
^bo 
259 
Zo  U 
20  1 
202 
Zo  3 
Zo  4 

Zo  9 
^00 
^.07 
Zoci 

zo  y 
z  70 
Z  7 1 
272 
275 

274 

275 
2  7b 
277 
27d 

279 

280 
Zo  I 
Zo2 
283 
Z  0  4 
20  5 
Zob 
ZO  / 
zbd 
zo  y 
zyu 
251 
292 
255 
29  4 
29  5 


1-0  l  i  ,  1J  ♦O  H  ,  1  J 
“KZbuO"  : 

"CHLCuuA'i  l,  TRANSMITTANCE  O’rt  InG  To  AT  TEN  U All On  BY  HAZE  AND  tOG." 

il  u5="  YEo"  ;  l*ii  l  i  ,  2)  ;  g  tc  "K25U0" 

it  C>  =  £.ll]  ;  y  tc  "K2800“ 

r  d+iu ; 0*r 1; cu-*-r2 

.5* (rl+r 2)*r 5 

r 2-rl*r4 

. z 380 7  51  *  r 4+  r  5 

.5*r4*l'tNC'(r5+r5)  +  VnC  '  ( r3-r  5)  )->r  13 

exp  (-r ( i J* rl3) -rl4 

o-c  b-»r0;rb-*-rl;rb  +  ru-*>r2 

. o  * ( r 1+r  2 ) *i j 

rz-r  l-*-r4 

.2odb751*r4*rb 

.  5*  r  4*  i  'enu  '  (  r  3+r  5)  +  'two  '  (  r3-r  5) )  ♦  r  15 
exp  (-.  12b*rl5)-*-rlb 
r  14*rlo-*-BU  ,2J  ;ytc  "K2900" 

" KZdOO "  : 

'j*ru;0  +  rl;r0-»r2;  .  5*(  r  1+  r  2 )  -*•  r  3 
c2-tl*r4  ;  .  2odb7bl*  r4-»r  5 
.  5*  1 4*  (  Vnd  '  (r  3  +  r  5)  +  'End  '(  r3-r  5)  )-*r  17 
exp  (-t'U  j*rl7)-uU  ,2) 

‘•K29UU"  : 

"C ALCu eAT l,  TRANSMITTANCE  OWING  TO  ATTENUATION  BY  PRECIPITATION" 
if  u$=‘,iw,,;l-BtI>3J;ytc  "K510U" 
if  020;  l*j(it3J  ;gtc  “K3100" 
e  xp  (  -u*G  1 1 J  )  *13  1 1 ,  3  ] 

"iUIOO"  ; 

"CALCueaIl  T  RANG  to  I TT AwC  E  onInG  TO  ATTENUATION  BY  SMOKE."; 
Alil/(«i(I,lJ*bli#2)*iiU,3J)  -Bllr4) 
it  oli,4J  >l;i*xJll,4] 

"CALCULATE  biwL  ut  SIGHT  INTEGRATED  CONCENTRATION" : 
it  uli,4)»u;ytc  " K 3 4 0 0 " 
toe  J  =  1  to  2  ;  U -*C  1 1  ,  J  | 
next  j;yto  "K3475" 

"K34UU"  : 
nor  j=1  tc  2 

it  n  [j  ,  1 J  =u;  u»Cl  i  ,j  j  ;gto  " K 5 4 5 0 " 

In  ltd  11,41  )/-h(J  ,ij  -G II  ,J  j 
"  K  3  4  5  0  "  : 


2  9b 


next  u 


297 
z9b 
2  59 
3u  0 
3u  1 
3u  2 
JO  3 
90  4 


"K3475"  : 
next  L 

"ATMuSPuKio  Dirt  US  ION  CALCULATIONS"  : 
iu^ -1.24 +1.19*1 09  (Y)  )♦* 

0b3( v-r) +15 

V  (13.  D9/(l3.o9*sin(rd)  *  sin(  r3)+cos(  r  d)  *cos(r8)  )  )  ♦  r  1 5 
1 . U9  521547  +  . 02900854*  v~4 . 9575e-4*w*0+4 . 8  2e-6*0*O*O»M 1 1 1 
9. 304059144+. 0oU5u 2571*  W-1 . 1d30  le-3*w*  w+1 . 3394  2e-5*  **  0*  W*M  2  1 


50  b 
*20908 


1  »l ,  1 J  +  N  1 1) ,  2  ]  *  2  +  K  l  rl  ,  3  )  *  L  2*ta 
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JOCj 
-JO  7 
J  j  b 
JO  J 
JlU 
Jll 
J12 
blJ 
J  14 
Jib 
J  lb 

317 
Jib 
bio 
J  20 
J2 1 
b^2 
J  Ob 
J/4 
J/b 

bib 

bb7 

Job 

o 

J  30 
J  Ji 
J  J 
JJJ 
J  J-i 
J  Jb 
J  Jb 
J  37 
3  3o 
b  3o 

J4b 
3<*  i 
b4  2 
b4  J 
J  4  H 
j4b 
J4b 
J  h'I 
Jho 
0  4  0 
JbO 
J  -b  1 
jji 

b  b  J 

b  34 
bbb 
b  ‘Jb 


t4u,lJ-t-oln,2)*o  +  LU,Jl*o~2-rlU 
1/rlu+tll 
1  f  0=0  ;  1-*  o 
.  j  1  b *vj»  Clu 
Lot  1=1  to  4 

"oALCuoAtl  CkoooV. iuo  i.TiooKATLu  Co NC  L  w THAT i Vi*  FOk  kvF  SMuKt" 
tor  K=1  to  2 

it  1  <3 ;  it  a >4  ;  g to  "rvJSOO" 
ulA,l]  +  .74*Jlti)*10  0~.9-»r4 
olK,2]  +  .b67*ry*luU~rlO-*‘rS 
u  [  u  j  *  ;•*  l  2 1  *  o  l  k ,  2 1  /  ( ii  *  r  4  *  r  5 )  *\t  l  K 1 
'•KJbOo"  : 

" >1 Ui*  1 1  i oi<  oAtonu i I uKb  CALCuLrtTiuaa”  : 
wtt  71b, "oil," 
it  l>i;y tt  " A 4 1 0 0 " 

"CALCbi-iA To  1  a II  i rti.  Stloi,L  SkACiNo  tuts  no  SrlOKo"  : 
tlb*4 j-Yil,l,K] 

"oUbi  AiN iNL>  julLl  ot'ACiaCj  tots  tiC  SibOKc."  ; 
it  Cii,ljso;gto  "nJuuu" 
o *\ [ L , 2 , A J ; g to  "KJ7Uo" 

" kJooO" : 

1/cla*  ( .  731*1  Ui  *Mli  ,D  /(CU,  1J  "rib*  r*)  )“rll*sf  U  ,2,K] 
it  Y  l  i  ,  2 ,  rv  ]  >t% ;  !<♦  i  1 1 , 2 ,  K  J 
"  K  J  7  o  o  "  : 

if  l  U  ,  2,  rvj  =0  ?l+w  [1  »1#A,  11  ♦Ul ,  2,  a,1  J  ;gtc  "K4O00" 

"JaLCuuA'Io  iNiiiAL  VOoLoY  c’uk  liC  StoOKo" : 
it  Y  U  ,  1 ,  A  j  >Y  1 1 , 2 ,  K  j  ;  2  U  ,  2  ,  A  J  *Y  1 1 ,  1 ,  a  J 
r'./Yli,l,Kj*wtL#l»k,lJ 

it  itc(vll,l,A,l])>o;int(wU»l»kfl])+l-*wU»l»i<flJ 
"v.Ao0uoAi  o  .<u.TibUi\  or  CuoS  r'OK  SUSTAINING  VuLUoYS  ( nC )  "  : 
k/iti,2,Nj-»wli,2,A,l) 

if  trc(wll»2,A,lJ)>o;  mt(wU,2,h,l])+l*wll#2,K,lJ 
"n4oOU  "  : 

"kAi  l,  or  r  i i<L  t  on  no  S.vOKL"  ; 

.  3  +  r'Jll  0  l  i  ,  1  J  =  0  ;o  *f 

"o  A  Oo  u  LA  i  o  iOiAL  n  o.iibo  n  or  nujwob  i.o*uir>ou  (iiC)  "  : 
v  ti*  i,ij,lj+wtI»S,i\  ,  1 1  *  (r,*r-l)-*’t'll,K,lJ 
1L  LtC(t/li,K,lJ)>o;  int(r'll,h,iJ)+i-*r‘li,A,lJ 
"i\4  ibU"  : 

it  1  <  j  ;  l  i  a>4;ytL  "a4Juo" 

"ot.ooo  oT.^Uiiio  (ol  j)  t>  vooLo  is  ( vs  I  ))  _  rtl  okoKL"  : 

it  vJ  1 1 ,  z  j  #0  ;  >jtc  "ah  120" 

J  ♦  A  l  i  ,  1  ,  A  )  ♦  l>  t  i  ,  2  ,  A  J 
J*-il,l,«,2j-«ii,2,A,2J 
•jtc  "  a  4  1  o  o  " 

" a  4 12  0  "  : 

it  i>2;.b*Uli,2J/vl.\l»vU»l»A*2|;gto  "a414u" 
v  lAj/^U,2j*loo*oli  ,1,a] 
o  \  i  ,  1,  uj  *l  i  i ,  2,  a  J 

lv/  l'li,Z,l\)'*vii  ,  1  ,  A  ,  2  ) 

" K4  l<*o"  : 


*  2 Jo 32 


68 


_>  b  7  : 
3  Db 
3b3 : 
bod 

3bl 
JO  2 
Job 

JO1! 

bb  b 
bbb 
b( j7 
bod 
bob 
b  70 
371 
37/ 
37  3 
j74 
b7  3 
37b 
377 
b  76 
b  7 3 
bob 
bb  1 
3  b  3 
3b  3 
bo  4 
3d  b 

366 

367 
366 
36b 
330 
3bl 

332 

333 
3  34 

39  5 
j  3  b 
j37 
336 
3  33 

400 

401 

402 

403 

404 

40  3 
40b 
40  7 


mt  iw  1 1  /  l,i'/  <0  )  ♦f  1 
xf  Lcc(wli,l,K,/l  ) >u ; i i+l+ri 
£  i.l*l*N*2)  ■*wli*2*:\*2] 

"k4 160 "  : 

"i<Mi L  or  ciKL  c  jk  v.P  SMOKl"  : 
ll  C  11,  2j  =0  ;0-»i41  *M  y  tc  "K4  200" 
li  l>2; 120/r lb+nll ,KJ ; gtc  "K4130" 
l^li,2,Aj+b0)/£lb+illi,l\J 
“  K  4 1 3  0  "  : 

»<  1 1 ,  i\  J  /  2  0  ♦  K  U  ,  K 1 
int (Ml , k] ) ♦to 

ll  i cc (k l i , K j ) >=. 5 ; int (K l i ,K ] ) +l*r0 
xi  cu=U;i-*'ru 
10*  z0/b0-*i:  1 1 ,  i\J 

I  /  K  i  1 ,  »\ )  +  k  1 1 ,  K ) 

li  k  1 1 ,  j\  ]  <  1 ;  i+i<  t  i  *  d  J 

"  K  4  2  0  0  "  : 

"CALCULATE  loiAb  hutiL>bh  OF  ROUNDS  REQUIRED  (WP)": 

i£  C  l  i  ,  2  J  =0;  o+p  li  ,  tv ,  2]  ;  g  tc  "K45u0" 

^U,l,K,2j+v  II*  2fK  ,  2  j  *  ( T  *  R  ( 1 ,  h )  - 1 )  ♦r'[  I,  ft., 2] 

II  l>/;wtl,2,K,2j* (k/oO+1) * (T*K U , K] -1 ) ♦  P) I * K, 2 J 
it  irc(p[l,K,2)  )  >0 ;  int ( P [I ,K, 2]  )  +l»p[  X ,  K,  2] 

vjtc  " K4  bO  0  " 

"k4  3b  0  "  : 

"C AlCulA 1 1  Oi»S  toK  •'i P  SIAULfc.  FLOW  (L  AND  E  STABILITY 
"INITIAL  SmlLL  SpACInG  foil  WP  SMOKE" : 
if  1  =  1  ;  it  K=1 ; Io0*2 ( I , 1 , K] 
if  i  =  2;if  K=1 ; 50*Z  1 1 , 1  ,K ] 
li  i<3;il  K=2;10o+Z[i ,1,K] 

"SUSIAINInG  Sht-LL  SPACING  FOR  WP  SMOKE "  : 

if  i  =  l ;  if  K=l;10G*ZlI,2,Kl 

if  1  =  1  ;  it  K  =  2 ; 200  +  2 ( I , 2 , K) 

if  i=2;it  K=1;50  +  2U ,2, A) 

it  1  =  2  ;  if  K=2; 100+2(1 , 2, Ki 

"INITIAL  VOLLEY  FOR  WP  SMOKE" : 

K/Z|l,l,K]Pl*(7ll,l,K,2J 

"SUSTAINING  VOLLEY  FOR  WP  SMOKE": 

N/4li *2,K)+l+Qll,2,K,2] 

"KAIL  ub  FIRE  b'OK  WP  SMOKE": 
if  K  =  1 ; 2  + K [ 1 , K  J 
it  K  =  2 ;  1*  k l i , K 1 

"CALCULATE  TOTAL  NUMBER  Of  WP  ROUNDS  REUU I  RED" : 

V 1 1 # 1 , K, 2 } +0  U , 2  *K , 2] * (T*R 1 1 ,K ] -1 ) +  P[ I , K , 2] 

"  K  4  bO  0  "  : 

K[i,  U+L 

K  (  I  ,  2  |  ♦  i‘i 

next  K 

"  u  I S  P  LA  Y  2  "  : 

init  4  ,  f  b.  0 , 4  x  ,  t  3 .0  ,  In 

tn.t  d,  l  S  .u  ,ox  ,  Id .  0  *  IL 

in.t  o*15.0*lb.l,  10.0*17.0  *1d 
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CATEGORIES) " 
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4 


c 


f 


Si 


i 


i  ' 

4 


X 

S 


« 


4 


4 


40b 
40* 
4  1U 
4  il 

412 

413 
4  14 
41b 
4  16 
417 
41b 

41* 

420 

421 

422 

423 
4x4 
42b 
4  26 
427 
42b 
42  * 
4  30 

431 

432 
4  33 
4  j  4 
43b 
4  JO 
4  3  7 
~i  3b 
4  3  v 

4  4b 
44  1 
4  4  2 

i  4  3 
4  44 
4  4  _> 
4  4  u 
44  7 
4  46 
4  4  0 
4  60 
4  6  1 
4  j2 
4  j  3 
4  1/  4 
4  bb 
4'jo 
437 

4  38 


tmt  7, £5.0, Sx, £3. 0 , 5x , f 5.0 , lb 
"ttC"-L$;i£  1  >2  ;  "  wk"  -*■£$ 
ell  'hEAUikG' 

ii  I  >  2 ;  c  11  \-iik/tik';gtc  "K5000" 
cil  'Gukl'  (1,1, R,Y  11,1,1]  ,  YU,  2, 11) 
cil  'GUk2'  (2,l,k,Y  11,1,2]  ,  Y[I,  2,21  ) 
wet  7ld,"u£2," 

asp  "COkTlkUE  wHEjn  READ* " ; stp 

"rtt-  "♦£!? 

Cil  'ttLAuiaa' 

Cil  'GUll'(l,2,k[I.iJ  ,2(1,1,1]  ,  2  [  1 , 2 , 1  j  ) 
ell  'Guk2'  (  2,  2,  k  [1,2J  ,2(1, 1,21, 2(1, 2, 21) 
"Kbu  00 "  : 
wet  71b,"u£2," 

asp  "CO.YTIwUE  wrtbiM  k£AOY";£tp 
next  1 

wrt  718, "b£2," 

ent  "0  TO  t,Xlf  -  1  TO  PRINT"  ,w 

it  w  =0  ;  y  t  c  "K7000" 

ysL  " PklNYEK  0" 

lor  1=1  to  4 

ell  'pklwTEK  1' 

it  i>2 ; ell  'pRIwTER  3 ' ; g to  "K6000" 

ell  'PRINTER  2'(l,k,P,Yll,l,l],Y(l,2,l],Yll 

cli  p  k  i  k  l  £  R  2  (2,  a,  4*1, 4[1,1,1],2(1, 2,1),  2(1 

list  3/;  wrt  701 

"tvauud": 

next  1 

"  iv  7  0  0  0  "  : 

asp  "ua^c." 

ena 

"  l''u  1  "  : 

"c4A":cet  exp(-o*pl/2) 

"no"  :cet  exp(-pl~x) 

"r  we" : ret  exp (pl*u*ln ( . 1/fc  U 1 ) ) 

"cau":ret  exp  (-pi*  u/ 4 , 1 ) 

"buliKoal  1  kua"  : 

"Xroa'Uret  i  l  4]  *pl*  i  l  b  j 
" ikao"  :  re  t  i  1  4]  M 1  U]  - 1 1  5]  *  pi) 

"tiool" ; ret  i 1 7]-pl*i (41 *1 { 5J 
"1  IT La" : 

: b-i  l  b  J 

” a fbb  (pi ) *1 16 1 

'Y Poo'  (p2) ♦  1 l 71 

rrTit  1 ,  t  4 . 0 ,  ”  ,  ”  ,  £  4 . 0  , "  ;  " 

wrt  716.1," cs2, : :pe0,::pa” ,1 (6) ,1(7) 

ret 

“ Lika" : 

.  2  b* 1 l 5 1 


*2*007 


1,2]  , Y [ 1 , 2 , 2 ] ) 
1,2]  ,2(1,2,21  ) 


70 


*«  J  b  : 
-» o  0  : 

401 
4  u  2  \ 
403  : 
40  4 : 
4ob: 
400 : 
4  o7  : 
4  o  0 
40b 
4  70 
471 
4  72 

473 

474 
4  7b 
4  7  o 
477 

4  /  ii 

4  7b 
4oU 
4b  1 
4b  * 
4  o  3 
4b  4 
4b  b 
4b  0 
4d7 

4b  6 
40  b 
4  bO 
4  bl 
4b2 
4b3 
4  b  4 
4  b  5 
4  bb 

4b7 

4  bb 
4  b  b 
boll 
bul 
bO  c 
bU  _> 
bO  4 

bo  L 
bUu 

bo7 

JO  o 

50  b 


”  a*-Uj  "  (pi ) *i l u  | 

2 1'  o  o  (p2)*il/] 
nit  l,L4.o ," ,",l4 .0 

wrt  7 1 o . 1 , " cs 1 , : : poO , :  :  pa"  ,  1  ]  6  )  ,  1  [  7  J 

tot 

"I'tLAi'Ll  Nb"  : 

'*ircbl'  (pl)*i  (  7  j 

t,r.t  l,L4.u,  ",",14.0,";" 

wr  t  71d.l,"pc0 , :  :pa",I lu|  ,  1  17] 

ret 

"i-iLnbiwG"  : 

wrt  71 0 , "el 2 , : : 1 12 , ; : cl 2 , " 
cii  'l.1ml,  '  (  2,4  ) 

«tc  7 lb, "pel, :  : lx  " ,C§ H ], 3,13,10 

Cl  1  *  .4  L  XT  Li  i  U  L  *  (  2) 

wlu  71b ,"pel, : : tx  METERS  MINUTES"  ,3 , 13, 10 

Cll  *  .4L.X1  Lii  ML  *  (  1  .  b) 

*rt  71b  .4  ,  "pel, :  ;  txaCRLoN  LtiMGTri/uuRATiGN: "  ,R,T,3 
Cll  'i4LXlL,ii4C.  '  (4) 

wtt  71b," ^el, ; ; tx  "  ,L$,"  SHORE  SCREEm " , 3 , 13 , 10 

ret 

"OuimI": 

cil  '.4L.X1  Liwo  "  ( 3) 

will  71b, "pel,  ;  :  tx  *, «?’$,"  MM  SO  in  1 T  2  E  R"  ,3,13,10 

cil  'nEatlInl '  (3) 

wtL  71b  ,  "pel,  :  :  txvuiiLtiY  GUMS  RATE/  SPACING  ROUNDS" ,3 , 13, 10 

cll  'mLXi  LIMP  '  ( 1. 2  5) 

*to  7 1 o , " pe 1 , ; : tx  MIm  METERS  ",3,13,10 

cll  'mLX'iLIwl  '  ( 1.  5) 

wrt  /lb  .  3,  "pel ,  ;  :  txiMlTXAL:  ",J  l  i  ,  1 ,  pi,  p2]  ,  p4 , 3 

cll  wLXi  el  mE  "  (1.25) 
i£  L5>="WP";i£  ri>4;2-*p3 

wrt  710.6, "pel,:; txSUbTAIwI nG: " ,0  U  »  2,  pi,  p2] , p3 ,p5,P [ 1 , pi ,p2]  ,3 
ret 

"Gu^i" : 

Cll  'i4C,Xi'LlML  '  (3) 

wto  716 ," pel, : : tx  ”  ,G6,"ikM  uU«iT2LR" , 3 , 13, 10 

CLL  'MLA'iLiME.  '  (3) 

wte  /lb,"pel,  :  :  txVo-LLC/l  GunS  RATt,/  GRACING  ROUmuS"  ,  3 , 1 3 , 10 

cil  'mLATlIml,  '  (1. 2b) 

wet  71o , "  pel, :  :  tx  n  i  m  METLtvS  ",3,13,10 

cil  M  C  A  i  Li  i  i4  L  (  1.  b) 

wit  )ib  .  b,  "  pel,  :  :  txlMi  lIAl:  ",wll,I»pl»p2],p4,3 

cll  "  wlaTlIml,  '  (1. 25) 
it  =  " v.r"  ;  il  ii>4;l-*p3 

wit  / 1 6  .  u  ,  pel,  :  :  txouSiriliMlAo  :  ,wli^2,pl,p2],p3,p5,R|l,pl,p2J,3 
ret 

"hnVtTii"  : 

Cll  WL  AT  Li  i  14  Li  (b) 

wtc  716, "  pel,  :  :  tx  RUuWuS/  RAIL/  TOTAL"  ,3,13,10 

Cil  M  Li  XT'  Li  1 14  Li  (1.12  5) 
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71 


310 

311 

ol2 

ol3 

3  14 

3l3 

51b 

317 
■jlo 
Diy 
J  20 
azi 
j22 
52  J 
524 
323 
32o 

32  7 

32  b 
--2  j 
j  Jo 
3  31 
3  J  2 
3  J  J 

3  34 

3  33 
3  3  u 
337 
3  3b 
3  35 
34  o 
3  *»  1 
342 
3  4  J 
344 
3  4  3 
34  0 
34  7 
3  4o 
34  3 
3  30 
351 
5  52 
553 
5  54 
335 
5  5u 
5  57 
3  5o 
335 
300 


wtu  71b , "pci, : : tx  oJ  MbTbKo  MInH'l  kuunlo" ,3 , 1 3 , 10 

cii  *nEaTl.1nE  *  (1. 23) 

wrt  7 1  o .  7  , "  t>e  1 , :  :  tx"  ,  t  b ,  “  mm :  "  ,wli#2,l,2),Kll,l],fU*l»2J  ,3 

cii  KL.Ait.itMt,  *  (1.  2  3) 

w  t  c  7  i  b  .  7  ,  "  pe  1 , :  :  t a  "  ,  o  b , "  Mm  :  ",wli»2,2,2],K[i,2)  ,  P  l  i  ,  2 ,  l )  ,3 

lit 

"tkaimaLk  0": 

Lmt  21/;wrt  7ul 

lmt  35x, "mUnITIon  L AKLubiluht S"  ;  wit  701 
lilt  3oX,  " tui\  Lw  Anu  *,P  ji'ioivi"  ;wtt  701 
Liit  t/;wrt  701 


tm  t 

43X, "lb 

= 

II 

,c4;wrt  701, A$ 

imt 

4dx  ,  "LAI  if  Out. 

- 

eLC 

= 

M 

, cl, lb. 2 

wrt 

7ul,ubll  ,1J  ,M1J 

il  n 

1 2  j  <0  ;  n  i  2 )  *  — 1*n  [2) 

Imt 

4  3X  ,  i_.vJ..Gl  1  U  Li Lt 

- 

eLG 

= 

•I 

,cl , 16 . 2 

wrt 

Vo  1,  lib  l  2, 2)  ,  n  1 2 ] 

imt 

43x  ,  "Alt  1  i'uut, 

- 

kM 

= 

II 

,  17 . 2  ;wr  t 

701, N[3) 

ur.t 

4  3X,"dUuiAN  LA'i'L 

- 

LAY 

= 

M 

,  14 . 0  ;  wr  t 

701,N [4] 

i.nt 

4  5x," LoLu  i‘ i iii- 

- 

iiL  O  K 

= 

•1 

,  f  4 . 0  ;  wr  t 

70 1 ,N [ 5  J 

tmt 

43X  ,  "  Cl.  1  Li  1  lML 

- 

t'lL  X  Ha 

= 

II 

, 17. 2 ; wr  t 

701,  A 

i.nt 

4dx,''ClJll  CoVlk 

- 

rLt\CEN'i 

= 

II 

,17 . 2  ;  wr  t 

701,o 

t.U  t 

43X, " violet LIT  Y 

- 

Ki-i 

= 

II 

,  £7 . 2;  wr  t 

701, C 

ir.it 

43X  ,  "t-HtCitlirt'i  1  On 

= 

II 

,c3;wrt  701, Lb 

lint 

43X,  "  I'EmpEKATUKL 

- 

LLu  C 

= 

II 

, 17. 2; wrt 

70 1 ,  L 

t  iT.  L 

4  3X,"olh  t'UiNi 

- 

lLG  c 

=• 

II 

, 17 . 2 ;wr  t 

70 1 ,  t. 

imt 

4jX  ,  ">\iNb  LiKbCTiOn 

- 

UlG 

= 

II 

,17. 2; wrt 

701, t 

1  ra  t 

4  3X  ,  "  CilMU  dPL,El» 

- 

KlMLI'S 

= 

II 

,1'7. 2;  wrt 

7ul  ,G 

urt 

4  D  X  ,  A  VL  KJOufli^  bo5  1  ” 

Cm 

= 

II 

,  f  7 . 2  ;  wr  t 

701,  i 

tmt 

43X  ,  "  t-Abwe  ILL  oiASlLiTY 

CaIlGukY 

= 

II 

,cl;wrt  70 1  ,L  b  In  ,  n  1 

im  t 

4  3X ,  " KLeATi  VE  nUMlbl  x’Y 

= 

•1 

,  1 7 . 2 ; wr  t 

701,  u 

ir.it  21/;  wrt  7ol 
cot 

"PkIWTLk  i": 
tmt  4/; wrt  701 
l.r.t  02x,c ojwrt  7Ui,C$liJ 
In.  t  3/;  wet  7ol 

tmt  47x,"  .lbi'bKb  MitMUTbS"  ;  wrt  701 

l.r.t  47x , "ogklpn  tip  k  (5  TO  /  u  u  kA  T  i  uk  :",£3.0,4x,l3.0;wrt  701,  K,T 
ret 

'VkIlmick  2": 
t,r.t  2/;  wrt  701 

tmt  33A,C2,"  SMOKE  SCREEn"  ;  wr  t  701,  E$ 
tr..  t  2/;  wrt  701 

tmt  35x ,  c3 ,  "MM  uOrti  i  lER"  ;  wr  t  701, r’$ 
tmt  /;wrt  701 

tmt  47x  ,  "  vollL  Y  GLns  KATl/  SPACING  KOlNUo"  ;  wr  t  701 

t.T.  t  47x,”  MIN  METERS"  ;  wr  t  701 

tmt  47x , "Initial :  " , £ 5.0 ,6x,ta .u ;wrt  701, c l i *  1, 1 ,pl) , p4 

lmt  47x  , " ouof Al  Ml  nG:  “  ,13.0,15.1, £5.0 ,17.0 

it  L,$  =  "WP";il  ii>4;2*p2 


*  ^4  OO  b 


4 


bt>  1 
‘jo  2 
Jb3 
bb4 
bo  5 
b  bo 

b  6  7 
bob 
jbb 
b/u 
37  i 
37  2 
b/3 
5  7  4 

37  5 
b/b 
b/7 

3/0 

5  7  5 
bob 
501 

30  /. 
30  3 


wtt  70 1 ,  vU  f  2 , 1 , pi  J  ,  p2  ,  pb ,  H I  ,  1 ,  pi] 
tmt  2/;wrt  7ul 

tmt  5t*x,c3 ,  "Mil  nOw  i'i  ^Lk"  ;  wr  t  701, 6$ 
tmt  /;wrt  701 

tmt  47x ,  "  vouLbi  Guns  kATl/  SPACING  ROUNDS" ;wrt  701 

tmt  47x,"  MIN  MtTLKS"  ;wr  t  701 

tmt  47x  ,  "  iNi  1'IAL:  " , £5.0  ,Gx ,f ti.0;wrt  701,0(1, 1,2,  pi]  ,  pb 

tmt  47x  ,  "  SuulAi  n!  nG:  ",£5.0,£5.1,fi>.G,£7.0 

i£  L$  =  "  vac"  ;  ii  ci>4;l-*-p3 

wtt  7ul ,  wl  1 , 2 , 2 ,  pi]  ,  t"3 , 1 7 ,  ^  1 1 , 2  ,  pi  j 

tet 

"PivInTLa  3": 
tmt  2/;wtt  701 

lr.it  bSx,Cx,"  oMuKu  SCRSLN" ; wrt  701,  b$ 
tn.t  2/;wrt  7ul 

tmt  47x,"  KuunDS/  KAIL/  TOTAL"; art  701 

tmt  47x,"  ou  .ILTLwS  MiwuTb'  ROUNDS" ;  wr  t  701 

tmt  47x , c3  >  "Mt4:  "  ,  r  b .  0 , 5x ,  to .  1,  5x ,  1 5 . 0 

wrt  701,t$,*[i,2,l,2] , R ( 1 , 1 ) ,c(I,l,2] 

£mt  4  7x  ,c3  ,  "tun:  "  ,  £b .  0 , 5x  ,  £  3. 1 ,  Sx  ,  £  5 . 0 
v*r  t  701  ,GS , w  1 1 ,2,2,2]  ,R[1  ,2J  ,  P  ( i  , 2 ,  2  J 
tmt  42/;wrt  701 
tet 
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APPENDIX  G 


KWIK  ALGORITHM 

GLOSSARY  OF  MNEMONICS  (FORTRAN  IV) 


1. 

CO 

Ceiling  -  feet 

2. 

Cl 

Cloud  cover  -  percent 

3. 

VO 

Visibility  -  miles 

4. 

TO 

Temperature  -  degrees  Fahrenheit 

5. 

TI 

Dewpoint  -  degrees  Fahrenheit 

6. 

DO 

Wind  direction  -  degrees 

7. 

SO 

Windspeed  -  knots 

8. 

PO 

Atmospheric  stability  category 

9. 

H3 

Slant  range  to  target  -  kilometers 

10. 

RO 

Relative  humidity  -  percent 

11. 

XO 

Smoke  screen  length  -  meters 

12. 

TIME 

Smoke  screen  duration  -  minutes 

13. 

AST 

Angle  of  sight  to  target  -  degrees 

14. 

DLS 

Direction  of  line  of  sight  -  degrees 

15. 

ARE 

Average  roughness  element  -  centimeters 

16. 

Z1 

Roughness  element  -  centimeters 

17. 

PSCTAB 

Table  of  stability  categories  depending 
upon  solar  altitude  and  windspeed 

18. 

T ( 4 , 4) 

Table  of  transmittances  resulting  from 
water  vapor,  haze/fog,  precipitation 
and  smoke  for  visual,  near,  mid,  and 
far  infrared  wavelengths 

19. 

C(4 ,2) 

Table  of  smoke  concentration  values  for 
HC  and  WP  smoke  (by  wavelengths) 

20. 

B  ( 4) 

Absorption  coefficient  error  function 

21. 

E(4) 

Scale  height  for  Mie  scattering 

22. 

F  ( 4) 

Haze  and  fog  attenuation  coefficients 

23. 

G(4) 

Precipitation  attenuation  coefficients 

24. 

CS(4,2) 

Table  of  extinction  coefficients  for 
calculating  HC  and  WP  smoke  concentra¬ 
tions  for  visible,  near,  mid  and  far 
infrared  wavelengths 

25. 

A  ( 6 ) 

Coefficients  to  compute  sigma  y 

26. 

S(6 ,3) ,D(6 ,3) 

Coefficients  of  roughness  correction 
factor  used  in  calculating  sigma  z  for 
the  various  roughness  lengths 

27. 

Yl,  Y2 

Yield  factors  for  HC  and  WP 

28. 

SLAT,  SLONG 

SALT,  SODATE, 

SJHOUR 

Latitude,  longitude,  altitude,  Julian 
date  and  Zulu  time  data 

29. 

P(4,2,2) 

Total  number  of  rounds  required 
(initial  and  sustaining)  to  maintain  HC 
and  WP  smoke  screen 

30. 

Rl,  Q(4 ,2,2 ,2) 

Number  of  guns  (initial  and  sustaining 
volleys)  for  105-  and  155-mm  howitzers, 
for  HC  and  WP  smokes  (by  wavelengths) 

31. 

R(4,2) 

Rate  of  fire  for  HC  and  WP  smokes  (by 
wavelengths) 

32. 

H(2 ,2) 

Unit  (per  gun)  source  strength 

i 


33.  ME(2) 

34.  U(2,2) 

35.  V ( 2) 

36.  W ( 6) 

37.  X ( 4) 

38.  Y(4,2,2) 


39.  Z(4,2 ,2) 

40.  SITE 

41.  PSC(6) 

42.  WLNGTH(4,2) 

43.  PRECIP 

44.  SM0KE(2) 

45.  GUN(I) 

46.  GUN(2) 

47.  DFE,  DFG 


48.  I 

49.  J 

50.  K 


Munition  efficiency  for  105-  and  155-mm 
howitzer  for  HC  smoke 
WP  volume  source  sigma  (oy0  and  oz0) 
for  105-  and  155-mm  fitter 
Stability  dependent  osswind 
integrated  concentration  for  WP  smoke 
Constant  (K)  related  to  stability 
category  for  WP  smoke 
Wavelength  threshold  levels 
Shell  spacing  for  105-  and  155-mm 
howitzer  (initial  and  sustaining)  for 
HC  smoke 

Shell  spacing  for  105-  and  155-mm 
howitzer  for  WP  smoke 
Met  site  identifier 
Stability  category  indicator 
Wavelength  indicator 
Precipitation  indicator 
HC  or  WP  smoke  Indicator 
105-mm  howitzer  Indicator 
155-mm  howitzer  indicator 
Direction  from  equator  (N-S)  and 
direction  from  Greenwich  (E-W) 
indicators 

Index  for  wavelength  algorithms 
Index  for  smoke  algorithms 
Index  for  gun  (ICj-  and  155-mm 
howitzer)  algorithms 
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riLOCK  DATA 
iMEtER  PO 

COMMON  /KWiK/  PRECIP.  ARE.CQ.C1.C2.Q0.02.P  0,?  J  »  P2  » S  0  »  S  ■*  .  T  O.T  1* 
2  Yl.VC.H’.AST.oiS.XC.TlME.PU.ZI.Cn.El.Tn.fl). 

■»  IJ(2  *2)  *V(  2  > .  Y<  ‘4  *2.2  )  *Z  (  4  *2*  2) 

CCKMCN  /MS1TE/  MTE.SLAT  »SLOK'G.SALT*cOCATE  »c7H01R*DFL*LFG 
CHA  R  ACT  FR  *  9  -JLMjTH 

CCFMCN  /CITPLT/  ULA  r  TM  (<4  )  .SMIK  E  U  )  *GUA  l  2  >  t  F'C  <  5  )  *  R1  » 

2  R('4*2)*Q(,4»2»2*2  )»■*  (1*2*2) 

LATA  ((H(1*J)*J  =  :*2)*I=1*2>/19.}*1  i*  7.’  *  i  7  .  1  »  70  7  6  .2/ 

UAT  A  U/S.'4,  7.  9,  1. 9*  2  •  i  / 

data  WLNfcTr  /  «H  V  I S  1 P  L  E  :  »  6  FNE  AR  IRI.SFMIC  1  F  J  .SFFAR  IR:  / 

JATA  SMOKE  /2HHC.2HWP/ 

LATA  GUN  /’HCE*  ’HI**/ 

LATA  PSC(l)/'4HA  /  .PSE  <  2  )  /<4HB  / 

LATA  PSCCJ/'JhC  a  *PSC< '4  )/'4HD  / 

LATA  PSC<S)/V4E  A.PSOti  >/'4rtF  / 

END 

C*KWIK  SMOKE  PROGRAM. 

INTEGER  FO 

COMMON  /KWiK/  PR£CID*ARe.C3»Cl«:2*0  0*02*J»J»?0«R2.S3*S,»TO*r  1* 
2  Y1  *VC  *H  1  ♦  AS  T.  CIS  »>C  .TIME  »H  (2  *2>  *C  ( A  *2  1  »T  n  .  '4  J . 

T  U(2»2)»V(2)»Y(’4»2*2)»Z('4*2*2) 

CCKFCN  /MSITe/  S ITE*SL AT *SLOKG *«Al T ,SJC ATE fSZHOtR  .DFE » CFG 
C  *MLT-:OROLOjI  CAL  INPUTS. 
rea  c  i  s  »i  gscc )  site 

REA0(  S.lOiOO)  SLAT 
REA L(S.  10SCC)  LFE 
Rc  a  D  (  S  »  10  500  )  SLONS 
KEAC(S,1CSCC)  DFG 
Ht.  Ac  (  S*  10500  )  salt 
REaC(S*1Q5CC)  SsJGATF 
REAqIS.IOSOG)  S7H0UR 
PEA L <S  ,1 GSCC  I  CC 
CO  -  CO  *0.Tf)'4S 
R  t A  E IS ,1 C5CC  >  Cl 
Rc.A0  (  S,  lOiOO)  VO 
VC  =  VC*1.  51 

Re  AQ  l  I*  lOSOO  )  PRECIP 
REA  C  (S  *1 GSCC  )  TC 
TO:  (  S./  9.  )  *<  T  )-  Y2.  > 

REA  E  <S  *1  OSCC  >  T  1 
Tl=(S,/9#J*(Tl-*2.) 

RLAUS.lLiCC)  DC 
RE  Ac < S.  10 500  I  SO 
RE*  C  IS  *1  CiCO  ARE 
RE  AD  t  S  *  10500  >  HT 
PEa C IS ,1 C SCC >  AST 
R'_AQ(S.lu500>  OLS 
REA L (S *1 C5CC  )  XC 
PE  AQ  <  S*  10500  )  TI»  E 
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C  *  P  £  T  t  C  F  CL  CG  IC  AL  C A l C IL A TT C N f . 

CALL  KUIK1 

t**TP,  CSFPE  R1C  OPTICS- 
CALL  KUIK2 

C*aT*CSFI-E  R1C  DIFFUSION. 

CALL  KWI*» 

C*FL'KiTICNS  EXPENDITURES. 

CALL  KUIK1 
C*PPI ATCIT 

CALL  KWIKS 
STCP 

C  *f  0  RM  AT  STATEMENTS. 

1GSOL  FCFPA  T(A  '*> 
lOiOO  FORMAT  (  F  1 O. 0) 

LAE 

SUBROUTINE  KUIIK1 

CCPPCN  /K  W I K /  FfiECIc  .  AF£  .Cu.Cl  *C2» LC »C2 »FC  .F C » RZ  .SO »S  ’  .TO. T1 » 
2  Yl.VO.HT.ASr  »0u  S.XJ.T  IME  *  H ( 2  »  2>*C<<4*2).T(<4.»>» 

*  U  (  2  *  2  )  »  V  <  2  >  *  Y  <  A.2.2)  »2( 7.2.2) 

character*®  wlngth 

CCPPCN  /CLTFLT/  *L  A  f:  T  H  ( '4  1  .SM  CK  E  ( 2  >  .  GL  A  {  2  )  .  F  5  C  t  i  >  »  R 1  ♦ 

2  R('4.2l»Q('4»2.2»2)»i(1»2»2) 

CCAI.CN  /Ac1TE/  c  ITE  .  sl  at  .elong  .sal  t  .sjcate  .SZHOIR  »DF£  »  CFfc 

I  AlTc  3  £  R  po 

iATECER  PSCTAF 

L/  IK£N  Si  ON  PSCTABr  7.71 

LaTa  PI  ✓M11^2*E'I/ 

UAT  4  ((PSCTABt  I  . J ) ♦ I - 1 . 7 ) * j =1 . 9 ) / 

1  l»l»2»,»'4.i»*. 

2  l»2.2.,«'4»6.S» 

’  1»2»1,.’4«7»S*4» 

7  2*2.T»7.7»5.4» 

•j  2»Z.,*7»7»'4»*. 

4  2.,.T.'4.'4f'4.*5. 

7  y  i'll*  '4  *'4  .'4  ♦  e  » 

5  *  *  *  «  7 . 7  *  7  »  7 . 7  • 

9  ’  .  7  •  7  »  7  »  7  »  7  »  7  / 

C*Y£T£OROLObICAL  CALCULATIONS. 

IF  (Cl  .NE  -  ICC.)  GC  TC  ICCO 
IF  (  CO  .GT.  21*'* ,60 '4 2)  30  To  1030 
I  1  =  0 
12-0 

GO  TC  2’CC 
10-J0  CONTINUE 

C  CALCULATE  ANfcLLAR  FRALTTCN  CF  A  YEAR  FCR  A  C1VEN  JULIAN  DATE. 

R  9- PI  /  1  Su . 

09  =  1 SO./ F 1 
SLA  T 1 =SLA  t*R9 

A  G  -  (  4 S  JD  A  TE  -  1  •  >  *  1  i  C  .  )/’i^.272 
C  oAL:ULAT£  SOLAR  DECLINATION  ANGLE  (A'l). 

A  1  =A  C*R9 
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A2=2  79. 9**494-4  0 

A  2:A  2  *  (  1  .9  1  *4  9  2  7**  IM  Al  )  )'  (C.L  )9*2S»CG9  (61  >  ) 

A2:A2  4(O.O199*9*SIN(2*Al))-(0.331*2*C0S(2*Ain 

A  2  :  A  2  *  R  9 

a*:2’.V4*9*99 

A  ■» -SIMA  ■»  >*MM  A2  1 

A*4:AS1N(A*4) 

L  CALCULAU  Tut  T  I  ►  £  CE  AFHL1AA  RAVAGE  -  T  F  L  L  SCLAR  NCON  l»‘). 
as:  12.  ♦  (  U.  12»57*MNi  A1  )  )  -  (  J.-J3H  2  87  *COS<  Al> ) 

A*>:AS4(0.  H^SCS  +  SH  <2*Al>>4(G.Ci0?i’*C0cl2»Al)) 

C  CAL2ULAT-;  S  OL  4R  HOUR  ANGLE  <A*>. 

AF-le.  .*<S7hCUF-A9)-cLCKt 
A*:A**R9 

C  CALCULATE  SOLfiK  ALTlTUCf  (671. 

A  7- Si  N(  SL  ATI)  *SIN(  AM  ♦205  (  St_AT  l  )  *C3  S  (  A  *4  )  *COS  (  AS) 

A  7  -A  S  IN(  A  7  ) 

1100  CON  T i NU  F 
A  7=A  7*09 

c  cal:ulat^  INSOLATION  class  N JM4E&. 

12=0 

IF ( A7  .It.  SO. )  GO  T0  1200 
i  2:'4 

uO  TC  lSOO 
12  CC  COM  HUE 

IF  l  A  7  . L£ .  ■’S.  1  GO  T0  1  *33 
12:* 

oO  To  1SQ0 
PCI  C  C  AT  1NUE 

IF  (  A  7  .  L£  .  H.  )  GO  T0  1  '43  0 

x2  ~2 

oO  TO  1SOO 
l'4CC  LC  \  T  l\Ut 

IF  (  A  7  .IF.  0.  I  ,0  70  22  00 
12:1 

C  CaLoULAT.  NET  RADIATION  1NDC*  FOR  -JAYTiNt. 

ISju  COAT INUf 
1*  =  3 

IE  (Cl  .C-T  .  SC.)  GC  *  C  1SCC 
i*:I2 

uC  T  C  1 9  C C 
1*00  CONTINUE 

I  F ( C  C  .GT.  21  ’  * • *C 1? )  CC  TO  1?LC 
l  *  =  12  -2 
b  0  TC  19 CC 
17J0  CONTINUE 

1F4CC  »6t  •  99  7*.* CSS)  GC  TO  19tC 
1  *= 12  -  1 
CO  TC  1 9  C  C 
1900  CONTINUE 

IF  <C1  .NE  •  KC.)  G  0  TC  1  9  C  C 
l*=I2-l 
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1  9  L  C  CONTINUE 

IF  ( I  T  .  NE  .  9)  GO  TO  2033 
i  ■»  -  1 2 

2000  CONTINUE 

IF (1*  .GT.  1)  GC  TC  2 1 C G 
1*=1 

2  ICC  COM!  NUF 

11  =  1* 

GO  TC  2 *  C C 

c  „  0  w  r>  IJ  T  £  NET  RADIATION  INDEX  FOR  NIGRTT»Ml. 
c  2  >,  G  CONTINUE 

IF  (  Cl  .GT.  '43.  )  GO  TO  22S3 
i  1  =  -2 

oO  TC  2*0  0 
22SC  CONTINUE 
1 1  =- 1 

C  CALCULATE  PASCUILL  STABILITY  CaTAGOFY. 

2  t  JO  CONTINUE 
i  '4  “0 
IS:  3 

IF  (11  .NE.  'O  GC  TC  2  '4  C  C 
I  '4=  1 

*'400  C  C  NT  1  NUF 

IFUl  .NE.  *)  GO  TO  2  '4  2  0 
I  '4^2 

2  '4  2  0  CONTINUE 

IF  ( 11  .Nt  .  2  )  G  C  TC  2  V4  C 
I  '4  =  * 

2  '4  '4 C  CONTINUE 

IF  <  I  1  .NE.  1)  GO  TO  2'4i'J 
1  '4  1  '4 

2'4iJ  CONTINUE 

IF  (il  .NE.  C)  GC  TC  2  '4  EG 
IT  =  S 

4'4bn  CCNTiNUF 

IF  <  I  1  .NE.  -1)  GO  TO  2  S  3  3 
1  '4  =  i 

*SOJ  CONTINUE 

IF  (11  -Nt  .  -2)  GC  TC  2  *52  C 
1*4=7 

2  *S  ^  0  CCNTINUF 

IF  <  SJ  .gE.  2.  )  GO  TO  2V43 
i  S:1 

o  3  TO  2  7U  0 
*  S  '*  0  CCNTINUF 

IF  (  SO  .GE.  '4.  )  GO  TO  2i  i  3 
I  *>  :2 

jO  TO  2  7uO 
2StO  CONTINUE 

Ir  (  SO  .GE.  S.  >  GO  TO  2  S  9  D 
I  Si* 
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oO  TO  2  70  0 
CONTINUE 

IE  (SO  .GE.  7.  ) 

GO  TO  2633 

iuc 

1  6:  <4 

00  TO  2  70  0 
CONTINUE 

IF  (  SO  .bE.  9.  I 

GO  TO  2*23 

*tj 

i6:6 

bO  TO  2  7oO 
CONTINUF 

IE  (SO  .GE.  10. 

)  GO  T0  2* 43 

6  VO 

i6  =  * 

bO  TO  2  700 
CONTINUE 

IF ( SO  .GE.  11. 

)  GO  TO  2*63 

1  f* 

O 

16:7 

GO  TO  2  700 
CONTINUE 

IF  (  SO  . b E .  12. 

)  GO  T0  2*93 

6fcC 

16:9 

GO  TO  2  70  0 
CONTINUF 

700 

16:9 

CO  NT  iNUF 

:PS  CT  Ab  ( 1  ’<  *1 

6) 

CALCULATE  RELATIVE 

HL^IOIT Y. 

IF  (TO  .  6  T.  0.  ) 

GO  TO  2333 

AG=9.S 

P3=2*6.6 

IF  (TO  ,LE  •  C.  ) 

GC  TO  2  96  C 

2  9<  j)  continue 

a‘0;  7  .6 
60  :  2  ■»  7.  * 


26*10  C  C  N  T  i  N  UF 


IF ( T1  .GE.  0.  ) 

GO 

TO  2933 

A  1  :9 .6 

91  =  26  6.6 

IF (T1  .LE  .  0.) 

GO 

TO  2  96C 

2  90  J  CONTINUE 
A  1  =  7. *5 
fil  =2’  7.  * 

2  960  CONTINUE 

tO-i«  1  1*10.  *  *  <  <  40*T0)/(  8  3  TO  >  > 
tl-i.ll*lC.**((Al*Tl>/(El-*Tl>) 
R0  = (£ l/EO) *100. 

1C999  FCPf'AT  |fM»»X.E’.t> 

KcT'JR  N 
tNC 
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SUBROUTINE  K W I  K  2 
INTEGER  FO 

COMMON  /KWIK/  PRECI*».  <Vq£.C0»Cl»C2»  J3tn2.3  0.?  O.Rat'iD.S’tTO.r  1. 

2  V!.VC»H,»^FT,DLS*XC»T]Kt«h(2«2).Cl'4»2)»T('*t'n» 

*  U<  2  .2  )  .V<  2  ) .  y  (  '»  .2*2  )  .  Z  (‘4  .2*  2  ) 

U1  Ffc  ION  6  (  '4  )  »E  t  <4  )  »F  <  '♦)  »C<  '4  )  .  Cc  ( '♦  *2)  .X  i '4 ) 
real  LO.Ll  »L2»L*»L'4  -LS 
REAL  NO 

JAT4  5/0.119.3. 19.3.99, 3.3/ 

Li  A  TA  E/26.  7 .  7.9. 9.1. 9.  C/ 

u  AT  A  CS  <1»1)/*.  V  ,CS<1. 27/2. «I9/»CS<2»  1>/1. 93/ 

UA  TA  CS<2.2)/2.CC/,CS<  3.l>/0.t/,CSn»2>/C.<,/ 

DATA  CS  ('4  .  1  >/J.  0/.CS<  1.  2>/0.*2/ 

LA  TA  X/.  (,9  ».(.9«.C,:*.C‘:/ 

DATA  PI  /*.  Ill  9  92<9'4/ 

UATA  NO/2FNO/ 
u  A  T  A  Y£S/*hY£S/ 

F  l\A  <  A )=f  XF  < -A  CT* A/2  1 
FNfi  <5  )-EXP(-8«*27 

FI\C(C)=FXP<4C«AST*Al  CG  <0. 1/F<  J  >  )) 

FNO  O)=FXp(-0*AST/'4.1  ) 

g*atpisfpefic  CPT1Cc. 

Vl:AL06 < VO) 

V2^V  1*V1 
V»  =  V2  *V  1 

F  (  11-1.99 9 1-(C.V £11*11  )-(C.C19  7  *  V  2  )*<0.CC'4  1*V,,> 

F  (  1  >  =E  X  ° ( F (  1)  ) 

F(2)=l.SC*819n-{0.9S2,I9919*Vl>-<C.bl99  72£Cl*V;>«<C.0C,i£9e,*V 
F (2l=£Xp(F(2) J 

FM)  =  1.2X9,4-tl.G'4'»i*Vll*<C.OC59*V2)-<O.CCl*»V,> 

Ft1')  =£XP<  F<  *1  ) 

K  '* >  =  1.91  71-  <  1.  71 '41*  W  >♦<  C.CCf  i*V2  1*  <0  .('<2  £  *  V*  1 
f  <  •* )  =exp<  f  <  ) 

b(l)=l.',t',Ci-(C.992  9*Vil)-(C.079,*V2)*(0.C12£4V,l 
51  1  > -E  X  P  <  g  <  1)  ) 

b  <  2)  =  1  .'4E  198  1  iC  7-  <  G  .  92299992  9*  V  I 7-  <0  .C  *9  90  9 '<  1  7*  12  7* 

5  (3 .01  *£90'422  *VT  ) 

u  <  2 ) =EXP  <L  <2  )  ) 

oM>  =  1.8S8i-<J.901X*Vl)-<3.077**v2>«-<0.J17**VX) 
o<  M =LXP<5(3)  ) 

*.(’♦)  =  !. *>9  2  9- <j.9’9S*Vl)-O.OS27*V2»*(O.Jl<9*V^l 
b('4)=EXP(L>C'4)  ) 
mO  -  0  .  0 

IF (A  ST  .LT.  C.)  ASTr-A5T 
4ST -A^T*(Pi/190.  ) 

A  ST ; S IN< AST  ) 
rt'4  =  0. 

IF  (A  ST  ,N[  .  C  .  )  H'4  =  1  ./ AS  T 

l  callulat:  p»ecipita3le  lut:p. 

W:L.'4'4  77*(L.C129*Tl).<1.2E-C,*Tl*Tn4(l.£'4E-C8*Tl»Tl*Tl) 

^  GaL.ULAT-.  amount  of  watfr  VAPOR  IN  3  A  T  ,-t . 
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Lr=h  11 
Lt  -  HO 
L2  =  LC 

L,-9.‘i*(Ll^L£) 

L'4:12~L1 

LS  =  0.  2«  Si  7=>\ *1  'I 

LC-C.S*L  '4  *  4  F  \  A  (  L  ’•*1*  >■*  FAA  <L  ’-L  ‘  )  > 

Wl=U*V!0 

C  CALCUIATl  TP  aNST- i  MAAC£c  FCP  V  IS  IBL  1  *  A  E  A  F  »  M  1L  *  F  AR  IR  U  AV  E  LE  MG  1  Hc  . 
l)  0  *>2  0  0  I  -  1  *  '* 
i  F  ( I  .  Mf  .  '4 )  G  C  TO  1  i  C  L 
T (I  *  1 >  =FX»* -J. Oi® 1*U1 ) 

GC  TC  *7CC 

C  CALGULAT-;  TRAMSMi  TT  ANCE  O'JINj  TO  A  3  *■  0  R3  T  1 0  \  b'f  WATER  VAPOR. 

MOO  CCAT1NLE 

LO=  (b  (  I  >  *  SQR  T  (  «f  1  *F>I  )  /  2  .  ) 

LI  =HC 
LZ  =  LO 

L,  =  0.I>*IL1 *L  2  ) 

L'4  =  LZ  -L  1 
LbrC.ZS0  i  JM'L') 

T2-O.S*L'4*(FM3(L:f*Lt')*FNo(L  *  -  L  ^  >  ) 

T (  i,l  )  =  ( 2  ./SLAT (Pi  )  )  *  T  2 
T  <!  »1  )  =  1-T(t,i  ) 

*7UC  CCUINUE 

C  CAL: OL ATl  TRAMSHi TT ANCl  0WIM3  To  A  T  T  Em  i  AT  Ij  M  ar  HA7E  A  NO  F  0  3 . 
if  (  P  F  EC  I F  .EG.  AC)  GC  TC  *9LC 
T ( 1  ,2  )  =  1.0 
o  0  T  C  '4 1  C  C 
MOJ  cOMTxNUE 

IF  ( VC  .GE  •  EUII  GO  TC  '4  CCG 
L  J-H'l 
LlrnC 
L2  -  LO 

L’  =  0  .c* (L!  «l  i  ) 
l'4  =  L2  -L  1 
Lb:O.Z?e  t  ja  1*M 

TT;O.S*L<4*4F'4C(L‘,«.Lt>)*'NC(L,--:»>> 

T'4  =  E  >P(  -F  (  1  )  *T  A  ) 

Ll  =  h'4 
L  2  -  f  * 

L  »=0. S* (L 1 *12) 

L  '4  :  L  2  -  L  1 
LbrO.Zaai  7  S  1  *  L  '4 

T*>  :a.*>*L  '4  *<FAf.<L,U‘)MAX(L,-l  e  M 
TirgX  P<  -0.  12  <?*  TS  ) 

T  (  l»2)=T<|*Ti 
u0  TO  '4  10  0 
'4  0.  C  LCATINUE 

LO:ht 

LI  rhC 
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L2-L  0 

L  7  - 0 . B* ( L 1 *L  2  ) 

L1-L2-L  1 

L^  =  0.28ei?^l*L'f 

T  7-0.  ti*L'4*(FND(L',*L‘’)*rV0<L,~L'  >  ) 

T  (  1  .2  >  =E  XP  (  -F  ( I  >  *T  7 ) 

'♦100  CONTINUE 

C  CALCILATt  TP AASP  iTTAACE  CUIAG  TC  A  T  TEN  t AT  II  A  BY  PR  E  C  IP  1  T  AT  1  CN  . 

1F(P^EC1P  .E  Q.  Y£S)  GD  TO  '4103 
1*00  C.  C  AT  i  NUf 
T(I.’  )zl. 
oO  TC  IS  00 
IluO  CONTINUE 

IF  < VC  .GT .  ZC  .  )  GC  TO  I’CG 
T (I  . T >  =EXP( -H**G(  I ) t 
1S00  C  C  AT  I NUF 

C  CALCULATE  TPANSMI  TT  ANCE  OWING  to  ATTtNJATIDN  BY  SMOKE. 
liUC  COAT  1  NUF 

TIi  » 1  )=XU  >/(T<  I,  1)  *T<  1.2)  *T<  I.»  >) 

IF  <T  (I  .1  )  .LE  .  1  .  )  GC  TC  1  700 
T  (  i  .  1  )  =  1 . 

1  7  b  u  CONTINUE 

C  CaLjULAT£  LINE  O^  SIGHT  INTEGRATED  CONCEv TP  AT  IOV . 

IF (T  (I»1  )  ,AE.  0.)  GC  TC  SOCG 
uO  IP 00  J=l*2 
C<  l.J>=0. 

19JJ  CONTINUE 

bC  TC  S2CC 

SOOO  CONTINUr 

bC  Sioo  K  =  1.Z 

IF  (  CS  ( I  »K )  .  NE.  J.)GO  r0  SOSO 
C  <  I »K  J  =0  . 
bO  TO  SlbO 
SOSO  CCATIAUF 

c  (  I  »K  )  =ALOG(  T(  I  »1  )  )/(  -;>  (  I  »K  )  > 

SI  00  ccatinuf 

S2J0  CONTINUE 
RE TUFN 
c_  N'J 


SUBROUTINE  K V I  K  7 
I  NT  E  CER  FO 

COMMON  /KU1K/  P  R  EC  I  °  .  AT  E  .  CO  ♦  C 1 1  C  2  .  0  3 1  OZ  .  ?  3.  R  0  *  92  .  S  0  t  $  *  t  T  J  *  r  1 1 
7  Yl*VC«H,»AST,CLS*X::»TlME*M2«2)»C<4*21*T(1f4|)* 

1  Ul2i2)iV(i)tVn*2»£)tZ('t»2iZ) 

LIMENS10N  A(  i  )  .S  (  ‘  . 1  )  t  C(  t  •■*> 
l*  i  men  si  on  wit) 

lA  Ta  A  /  0  .  '4  »C.  1 2  »  C  •  2  2  *  C  .  1  V4 1 0 .1C  2*0  .  C  7  E  / 

U AT  A  (  ( S(l . J> . J-l  .  *  It  I  :l , i  )  / 

1  o.i^9ce,52!iT»r.ci‘;ci?£?'4.-i.C£,;ciE-CN. 

2  j. 1 22  3  9  7S'4  *. 0.01 3  9  7-3  Y  7 .-5  .9 j 1*SE- OS. 

*  0.11ClC4^7?fC.ClC9i2  9i^.-i.i^'4  01E-C‘:. 

'4  n.397t'l9«‘»2.0.01'J,4l‘iS19*-i.'i^£>0  2E-0S» 

S  0  .  C  7  C  J  J21EE»7.2  72£'4E-C',*-'4.‘Q<jSiE~CEt 

S  0.0S5'4®709Y.5.‘»:>*39E-0Y*-<I.J17?5S-3‘>/ 

Li*  Ta  (  (P  ( 1  «J  )  *  J=  1  »  ’  )  *1  =1  .  i>/ 

1  0.  9 '4  *4  91  0  91  S  »  -'4  .951  9  5  E  -  «  4  .  /  }  ?  7  E  -  u  5  » 

2  O.SSOEC’SSl  «  -  A.  9',5elE_C'*»T.  *91 '4  7  F  —  G  *;  « 

'  0.95'4  772‘,t9»-'4.9271iE-0,«7  .4  7  9  2  '4  E  -  35  ♦ 

'4  0.51*C2i9’t»  -  i.  C  7  '4  C  7  E  _  C  1  *'4.  i  1  ■*  S  E  ~  L  S  * 

5  3.  78502  i9,S»-S.37'4J  7  E  -  3  *  .71,aE-J‘>t 

S  0.  72 5 C  15  ?P»-  i,  CM  7  ’‘E  -  C  1  .'4.  1018  7E-C  5  t 

l)  A  7  a  U/0.Jii»D.015»O..Jii,0.3ii, 3#oi  s#3#3is/ 

LA  TA  PI  /,.1'4  1S92S5'4/ 

L  •ATMOSPHERIC  DIFFUSION  CALCJl  at  IONS. 

Alr-l.2'4-*l.lS*ALCGlr<AFE) 

Z1 =10.**Al 

A  2  rABS  (DLS-OC  )•  (PI  /  1  ®C  .  ) 

R2=SyPT  <  1*.  <9/(  1  *.  59*SI  ,\<A2  )*S1*  <  A2  >*CjS  <  A2>  *C0s  l  A2>  )  ) 
ri;l.C9S21t;'4  7MC.02SCt89'4»RO)-('(.9*7Sf-C'4*FE*RC7* 

7  < '4.  92£-3i*RO*RO*9G) 

Y2  =  Y.Y5$C5VH«-»<C.C«C5C2«71*fiC»-<l.I8*CU-C**R0*RCM 
2  4  1  .  »*9'l2£-35*R3*PJ*V0> 

C2:S(PO»1J-»S(FC»2)*’1«c(FC»*I*?1**£ 
jl=D<PO*l> •0 ( P  3 • 2 )  *  7 1  ♦ 3  <  9  J  »  * ) *Z  l *  •£ 

02  :l/D  1 

IF  (SO  .NE.  0.)  GO  TO  52  3  j 
S  ^  ;  1 . 0 

52  JO  CON  T  *  NU  E 

S7zSC*0.  SIS 
jO  S'4-JO  1  -  1 1  '4 

OlALCULATt  CPCSSUlND  IN  T  r  GR  A  T  f  C  CCNCFNTFAT I  C  N  EC*  UP  SMOKE. 

00  5*00  k  =  1»2 

i  F  (  i  .LT.  ^  .AND.  FC  .  G  T .  '4  )  GC  TO  5*00 
SI -U( Kt l) ♦0.  7"I*A(PJ)*1JJ.**0.9 
S2=li(K*2)*O.E*7*t2MCC.»*Cl 
VIK)=CW(P3)*Ye*H(K#2))M°I*Sl*S?> 

S’GO  CCNTiNUf 
S '4 0  3  CONTI  NUT 
RLTUFN 
L  Nlj 


SUF-RCUT1NE  KUIK'4 
IMT£  3£  R  PO 
REAL 

COUPON  /KW1K/  PRECI® t A? E. CJ »C1 » C2tD0* 02* > O.T 0» R2 .SOtSTfT OfT 1, 
2  YlfVC.H’.A<T,CLS.XC»TlKE»M2«*).C(1*2>»Tn.'U» 

t  U(2«t)»Y<2)»V<M»2*2)»Z(1f2#2) 

CPA  RaCTE  F.  *e  WLNGTH 

COUPON  /OUTPUT/  WLNGTH('4).SP0<E<2)*GUN<2)  *&SC<E>  »«1* 

2  M1*2)»Q(Mt2»2t2)*M'4*2t2) 

u I PEN  SI  ON  PE(2) 

DATA  *E/t.'*»L.M/ 

C  *  P  U  N I T 1 0  N  S  EXPENDITURES. 

CO  S9G0  I=l*'( 

C*  CALCULATE  INITIAL  SHELL  SPACING  FDR  HC  SPjKE 
uO  S  900  K ;  1  »  2 
IF  (  I  ,QT.  2>  GO  TO  S1JD 

V  <  I  *  1  »K  )  1'lS.fS-* 

L*  CALCULATE  SUSTAINING  SHEL.  SPACING  FOR  HC  SMOKE 
iF  (C  41  *1  )  .  NE  •  0.)  GC  TC  'SOC 

Y  ( I  »2  »K  >10. 
uC  TC  S' 00 

SSUO  CONTINUE 

riI«i.M:l/fi<‘»(C.  JU*ff(n*Yl*MK»in/(Ct<‘’*C(I*U)  )  •♦D2 
If  (Y(I*2»K)  .  o  T.  XJ>  Y  (  I »  2  *K  >  -X  D 

S‘(,0  continue 

IFIYII»2*K>  . \ E .  0.1  GO  To  S7D0 
Ci  (  I*  1  *K  *1  111. 

Oil  * 2*K.1> il. 
uC  TC  S90C 
S  70  J  CONTINUF 

C*  CaLCLLaTE  INITIAL  VCLLFV  FCf.  PC  SPUE 

IF(T<If  l*KI  ,GT.  Y<r«2«K>>  Y  <1  f  1  »  K>  i  Y  (I  f  2  f  K ) 

0  (  ifltKt  1  UXC/Y(I*  1»K  ) 

QSlAi NT(Q< i «  I# Kf  1  )  ) 

06  =  C(If 1  »K  ,1  )-C*5 

If ( 0 i  . FO.  0.)  GO  TO  SiDD 

0(  1»1*K»1>  =  G'«1. 

S«oO  cONTiNUF 

L  •  CaLCLLaTE  N  UP  bE  K  CF  GUNS  FCR  SUSTAINING  VOLLEY*  (PC) 

0 (I *2*K  .1) iXD/ Y( I f 2*K> 

OSrA  1  NT  (  &U.2  *K  .1)  ) 

U*  =  Q(  I  #  2f  K  »  1)  -  Q*> 

1  F  l  Ci  i  .EG.  C.)  GO  TO  'St  l 
0(1  *  2  »  K  »  1 ) =0S*1. 

SPCu  C  C  NT  I  NUF 

C*  CALCULATE  pAT£  Oc  FIRE  FO^  HC  SMO<E 
K 1 rO  .S 

IF  (Cl  I  »1)  .ME.  0.1  GO  TO  iJOU 
PI  -0. 

SO  JO  CONTiNUF 

C*  CALCLLATE  TCTaL  NOPER  CF  POUNDS  F£OU]PEC  (PC  ‘POKE) 
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PUt<tn=Q(l*l«Ktl>4-(Rl*TinE-l)*Q(I*2»K«l) 

Q*5=A  iNT  (  F  (  I  »K  ,1  )  ) 

o*=P(  1 1 k »  n-os 
1  F  (Cl  S  .CO.  C.)  GC  TO  HOL 
P (I  »K . 1>=05*1. 

E1CC  CCNTlNUf 

IF  l  i.  .LT.  *  .AND.  PD  .3T.‘»)  GO  T  o  iSJO 
C*  SnlLL  SPACING  IZ(  »)  AN  C  VOLLEYS  (G<  ))  -  VF  c  FOK  F 

IF  (  C(  I  *  2)  .ME.  0.)  GO  TO  S20D 
/( i » 1 »K ) rG. 

2(1 *2  »K  )  =3  . 

0  ( I*l*K»2)-0. 

0  ( I  1 2  *  K  #2 )  -0  . 
uC  TC  S  <1  G  C 
E2JQ  CONTINUE 

If  (l  .LT.  *)  GC  TC  i 2  NO 

IF  <  I  .GT.  2)  G(  I»  1«  K.  2)  =)  .  S*C  (  I  *  2  )/ V<  K  ) 

oO  TC  i^OO 

CONTINUE 

2 (  i » 1 *K ) =V (K ) /Ctl »2  J  *  ICC. 

2(1  tl  .K  >=7(1*1  »  K  ) 

2*1*K»2 )  =  X  G  /  2  <  J . 2  .X  ) 

**D0  CONTINUE 

G  S  ;A  iNT(C(itl*K«2)  ) 

0i=0(  !•  l*K»2>-Qr» 

IF  (Ci  .EC.  0.)  GO  TO  i’SL 
0(1 f 1 »K» c) =QS*1  . 

C  C  NT  J  NUF 

Q  (  I  *2  »  X  *2 )  -Q  { i  t  1  f  K  t  7. ) 
i'«Ou  CONTINUE 

C*  wArt  OF  FIRE  FOR  WP  SMOkE 

IF  <C  (I  *2  )  .NE  .  0.)  FC  T0  i'«2N 
«(I.K) =0. 
bC  TC  SSUC 
i'»2->  CONTINUE 

IF  <  1  .GT  .  2  >  GO  TO  *  1 « b 
R  ( I  ?K ) =(2( i *  2»K )♦ SJ  .  >/»  * 
o  C  T  C  * 't  1  * 

‘rTSj  CONTINUE 

Hi  ItN)rl2C./F  1 
iT7S  CONTINUE 

H  (  i »K ) =  R (I »K >  >2C  . 

P-irAi  NT  <ft(l  tK>  ) 

H  i=R  (  I  *K  )-F*5 

IF  (  R  i  .LT.  O.SJ  GO  TO  ‘*>30 

i*>OG  C0NT1NUF 

IF  (RS  .NE  .  C  .  1  GO  T  P 
WSrl. 

i*isO  CCNTINUF 

R ( I  * K  )  =  p*>*23.  f  S 0. 
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H  (  1 tK ) =1  ,/h (  I  tK  > 

If  (  R<  I  *  K  I  .  Gc  .  1.  >  GO  TO  6600 

R  (  1 1  K  )  -I  . 

6  630  continue 

L*  CALCCLATl  total  NLMcER  CF  POUNDS  PEuUJREC  ILF  ) 
if  (  C(  1 1  21  .ME.  0.)  GO  TO  66SO 
P(  ItKt2) =C. 
oO  TO  6700 
66cO  CONTINUE 

IF  (  1  .GT.  2)  GO  TO  67J3 

kU*K.2)=UltltL«2)*C(It2*K*2»*<TIf'E*R<ItKl-l.l 
JO  TO  6  750 
6  7  u  C  CONTINUE 

P(itKt2>=Q(I.2*Kt2>*(X3/63.*l.>*<TlME*R<It<>-l.) 
6760  CONTINUE 

GS= A1 NT (P{ i tK t  2>> 

0  6  =P (  I  tK  t 2  )-C6 
IF ( Q  6  . EQ.  0.)  GO  TO  6900 
PI  1 » K  *2  )  =C*>*  1  . 
oO  TO  6  90  0 
6?oC  CONTINUE 

0  *  J  ALo'JL  ATlONS  FOR  E  and  f  >  T  A  B  IL  I V  CAT  (STABLE  =’LOW) 
L*  i  N  I T  1  a  L  ShFLL  SPACING  FCF  LF  SMOKE 


IF  (  I 

.EO. 

1 

.  AND. 

K 

•  E  3  • 

1  ) 

Z ( 1 1 1 *K  >  =  100 

IF  (I 

.EO  • 

2 

.AND  . 

K 

•  EG. 

1  > 

2 (  I f 1 *K ) :S0  . 

If  ( I 

.LT. 

.  AND. 

K 

.  E  3  . 

2  ) 

Z(  It  1  tK  )  - 1  <3  3 

T/IINING  s 

FELL  SPACING  FOR 

UP 

SMOKE 

If  ( I 

.EQ. 

I 

.  ANO. 

< 

«ti. 

I ) 

2(1*2, K  >  =  103 

IF  (I 

•  EG  • 

1 

•  AND* 

K 

.EC. 

2  ) 

2 (  l»2tK)=2CC 

If  (  I 

.£0. 

2 

.  and. 

« 

.  E  3  . 

I  ) 

? ( 1 1  2  tK  )  =  5 j. 

if  (I 

.eg  • 

£ 

.AND  . 

K 

.EC. 

2  ) 

2(  lt2tK  >  = 1 C C 

c.«  initial  VOLL r  Y  FOR  UP  S*|0<C 
j(I»l»K»2):>C/Z<l*l«K)*l. 

L  *  SUSTAINING  VOLLEY  FOR  UP  SMO it 
C(it2tKt2  )=X0/Z(Jt2«K)*l. 

«.  *  R  ATL  Of  FIRE  fok  up  smoke 

if  (K  .EO.  1  )  f>  ( I  » 1  )Z2. 

IF  IK  .EQ.  «>  R(I*2)-1. 

C*  TOTAL  NLKBEF  Of  founds  RE  01  1  FED  (UP) 

P(I»K*2):0(I.l*K»2W0(I*2«<*2)*(TME*R(I.K)-l.) 

OS :a  1NT  I  F  ( 1  »K  *2  )  » 

Q6=P( If K«2>-QS 

IF  (06  .EG.  C  .  )  GO  T  0  6900 

P (1  »K t  2)=0S*1. 

6  9(0  CONTINUE 
Rt  TUR N 
t  N  C 

SUBROUTINE  KLJKS 
INTEjER  po 

COMMON  /K  L 1 K /  PRECIP  * AF E f C Of C  1  f C2f LC f T2 f FC ff Cf R2 fc0 fS 1 tTOf T1 , 
2  YlfVOtHTfAST  tOLStXOtT  lMitH(2t2)tC(1tc)  *T('I*1  ft 

1  Ul  2  *2  )  »V(  2  >  tV<  9.2  »2  >  tZ  0*2  t2  ) 

COMMON  /MS*  T£/  S  ITEtsL  »T»SLON  Gt s  Al  T  t S  JDAT  E»  SZHOURt  DFLt  3FG 
(.FARACTe  R * S  L'INGTh 

COMMON  /OUTPUT/  ULNGTH(  ")fSMOK  i  (^  >tGUN(2>  f:>SC(6)  tRl» 
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2  R('l»2)fC(1t2t2f2)tR(1t2t2) 

C*  3  F  I  N  T  INPUT  PATA 
LfilT£(iflCCCC) 

UR  I  T  (  i  •  1 0 1 2  1) 

WRITUitlt’TCC) 

WRI  Tc  (  if 10100) 

WRITUif  1C2CC) 

WRITE ( if 10S03)  SITE 
WRlTEIitlCiGC)  CFEfcLA7 
WRITE  (  iflO  70J  )  DF(ifSlO\IG 
U  R  ITE ( i t  1CSCC  )  SALT 
WRIT;  <  if  10900)  SJDATE. 
uRITtlifllCCC)  <-2HCUR 
WRITE  (  i  f 1 1 10J>  CO 
UR  ITt  < i 1 1  12  CC  >  Cl 
WRITE (if  11 *00)  VI 
UR  I T I  (  if  11-4CC  )  PRECTP 
WRITE ( if  11  SOU)  TO 
UR  ITE ( i f 1 1 iOC  )  T 1 
WRITE { if  11  TOO)  0) 

URITUifllfeCC)  SO 
WRI T£ t  if  1  1900)  ARE 
UR  ITU  i  1 12  CCC  )  F SC ( F  C  ) 

WRIT:  (  i  f  1  2  103  )  RJ 
UR  IT E ( i f 10CCC  ) 

C*  3  R  1  N  T  MlJNlTjON  E*  P  EN  QI  T’l  R  E  S 
L  0  710  0  1 1 1  * 't 

WRI T; (  if  101  *0) 

UR  lTt (it  122CC  )  ULNGTR<I) 

WRiTt (  if lOl^O) 

U P  1TL ( i .  1  £ t C C  ) 

WRITE (if  12 100)  XjfTIME 
URITE(i.lC2CC) 
lr  (  I  .  G  T.  c)  GO  TO  7)0  0 
hRlTL(itl2SCC)  SR'OKF(i) 

WRITL (  i  f 1 0  2  0  0 ) 

UR  IT  t ( i t  12  iCC  )  GUN  <  !  ) 

WRITE (  if  10130) 

WfilTL(it 12 7CC ) 

WR I T:  ( if  12 “00 ) 

URITt«i»129CC)  C<I  .T  .  1  » 1  ) f V<  Ifl  .11 
WRiT^(ifl‘»000)  U<  If?flfl)fRlfY(I»2fl)f>(Itlfl) 
URlTL(iflC2CC) 


Ufi  IT  t  l  6  »  12  6CC  )  GLIM  12  ) 

-JR  A  T  r  (  6.10100) 

URITE(6»12 7CL) 

WRIT: ( 6.12<?00) 

UR1TL(6»129CC)  C  ( I  .  1  .2  .  1  >  .Y(  1.1.2) 

WR 1 T:  ( 6  .1 *000)  0(I.5.2.l).Rl.Y(I.2.  2). >(1.2.1) 

WS1TL16.1C2CC) 

WRIT: ( 6. 12500)  SMOKr(c) 

WRITt<*. 1C2CC) 

WRIT: (6*12600)  GUNC  1  ) 

WPIT£(6.1C1CC) 

WRIT: (  6.12  700  ) 

W  R  i  T  E  (  6 . 1 2  «  C  C  > 

WR I T : (  6*12  900)  U(  I.  1  .  1. 2 ) . Z  <  1.2  .  I  ) 
if-  (PC  .GT  .  '4  )  MI  .  1  )=2. 

WRIT: ( 6.1 *000)  U(  I»2»1»2)»R(1»1)  .  Z (  I  .  1 » 1 ) *  ° (  1.1.2) 
w  fi  i  T  E  (  6 . 1  C  2  C  C  ) 

WRIT: ( 6.12600)  GUN(2) 

WRITt(6.1ClCC) 

WRITi (  6.12  700  ) 

Wf'iTE(6»12  6CC) 

WRI T: {  6.12  900)  U!  I. 1.2. 2). 7(1. 1.2) 

I  F  (PC  .bT  .  '4  )  M  I  .  2  )  =  1 . 

WRIT?!  6.1*003)  Cl(  I»2»2*2)»R(I»c)*7(  1.2.2) *°(  1.2.2) 
UR 1T£(6. 1CCCC  > 

IF  (  I  .LT.  ’)  GO  TO  7100 
7GCC  CONTilMUE 

WR I T: ( 6*12600 )  OK  2  ) 

WRITE(6.1C1CC) 

WRlTr ( 6»1 ’100 ) 

U  c  1 T  t  (  6  .  1  •»  2  C  C  ) 

WRI  Tr  (  6*1 11 11 00)  GUN(  1  )  .  3  (I  .  2.1  »  t  )  .W(  I.  1  ).R  (l.  1. 2) 
URITL(6.11,CC)  GLFi  (  2  )  .(•(  I  .2.2 .2)  .R  (I  .2)  .P  (  1 .2.2  ) 
WRIT:  (  6.1000'J) 

/KC  LCMINUF 
R£  T  UR N 

L  *  fORYfiT  STATEfLMC. 

10000  FORMAT  (  lri  1  > 

1 0100  FCFMaT (IF  ) 

102  JO  FORMAT!  In  ')) 
inno  fcfmat  (///) 
mi  '4  o  for  mat  (////) 

10V)0  format  I  <SSX  .21HMUMT  TON  t XP END  IT  JR EG  ) 


10*41.0  F  CFMAT  (StX  .1  >HFOH  HC  A  K  L  UP  SMOKE) 


10  son 

1  06  v  G 

FOR  MoT  (  '4SX 
F  C  FMa  T  ( '4  6  X 

.tshid 

.**HLaTi  Tt  EE 

-  rtc 

:  .  A7) 

:  .A  2  .  F  6 

10  70  0 

t-  ORM*T  <  '4S  X 

. XSHLONGI TOO; 

-  DEG 

:  .  A2  »F6 

1  G  6  C  G 

f  CFMaT  (  '4  S  X 

♦’‘HAITI T ( £E 

-  *  M 

:  .F  7.2  ) 

10V00 

h  OR  MAT ( 1SX 

.’SHJULIAN  date 

-  DAY 

=  »  PS .0  ) 
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11000 

F  C  F  M  A  T  { 

'4  EX 

* 1  E  f  2UL  L  tIME 

- 

FCLF 

z 

•  FE.G  ) 

1  1  100 

FOR  MAT ( 

'4  S  X 

»XEHC£ILINj 

- 

met-: 

R  S 

z 

♦  F  7.2  ) 

112  00 

F  C  FMA  T  ( 

'4  E  X 

fXEHCLOUt  CCVfF 

- 

FtFCENT 

z 

.F  7.2  ) 

1  1  XQO 

FOR  MrtT  ( 

'4  EX 

»  XEHV  ISI8IL  IT  Y 

- 

KM 

z 

.  F  7 . 2  ) 

1  1  '4  0  C 

F  CFMAT  4 

'4  EX 

.’EfFRECIPITATICN 

- 

.  ‘4  X  .  A  x  ) 

l  1SJ0 

FORMmT< 

'4  EX 

*  XSHTEMPERAT  jre 

- 

DEG 

z 

»  F  7  •  2  ) 

1  1  SUO 

F CFMAT ( 

'4  EX 

t’EhCEW  POINT 

- 

CtG 

( 

- 

.F  7.2  ) 

1  1  700 

FOR  MAT  (  NSX 

.XEHWINO  DIRECTION 

- 

D£  G 

z 

.  F  7 . 2  ) 

1  1  bCC 

F  CFMA  T  < 

'4  EX 

.’EhUlNO  c  F  f  EL 

- 

knot 

C 

z 

.F  7.2  ) 

1 1V0C 

FORMAT { 

'4  EX 

tXSHAVE  ROJGRNESS  ELEMENT 

- 

CM 

z 

»  F  7.2  ) 

12  (’CO 

F CFMATt 

'4  E  X 

.X'HPASCLTLL  STAbILITY  CATEGORY 

z 

»  x  x  .  A  N  ) 

12100 

l-ORMAT  ( 

'4  EX 

tXEHREL  AT  I V  E  HJM  IOITY 

z 

. F7.2  > 

122  CO 

FCFMAT4 

E2  X 

.AS  > 

12X00 

c  0  R  M  A  T  ( 

'4  7  X 

»  x  7  H 

METERS 

MINUTES) 

12 '4  CO 

F  CFMAT  t 

'4  7  X 

•  2XHSLPEEF  L  EN  GTH/OUR  AT  UK 

l  f 

IX.  fe 

•  t  » 

NX 

.  F  x  .0  ) 

12  SOU 
1 2SX 


FORMAT { 
F CRMAT ( 


12  700  f  ORMAT  ( 
12  b  00  FCfcKATt 
12V  0  U  FORMAT { 
ixf,c0  FCFMaT( 


S9X 
‘'SX 
’♦  7  X 
<x 
'4  7  X 
7  X 


A2.1»H  SMOKE  SCREEN) 

A’.llHMM  hOWIT7ER) 

x  7  HVOLLEY  GUNS  RATI/  SPACING  ROUNOS) 

■»Ch  K I  f  METER1) 

llMIMITIALJ  .F5. J.SX.F9.G) 

HhSL'«T  ATMf  G  1  .FE  .L  »FE  .  l.F  5  .C  »F  i  .C) 


i  mo 

1X200 

1"J0 


FORMAT  (  <4  7X 
F  CFMAT  (  <4  JX 
FORMAT  <  '4  7X 
LAC 


X  1  H 
X2H 

ax, shmm: 


ROJNOS/  RATE/  TOTAL) 
EC  METERS  M1AUTF  ROINDS) 
.  -  S.J  .EX  ,  -x  .o,  '4  X  *  F  7 .0) 
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APPENDIX  I 


B 


P 


B 


KWIK  ALGORITHM 
GLOSSARY  OF  MNEMONICS 
(BASIC/HP85,  HP9845 ,  AND  APPLE  II) 


1.  CO 

Ceiling  -  feet 

2.  Cl 

Cloud  cover  -  percent 

3.  VO 

Visibility  -  miles 

4.  TO 

Temperature  -  degrees  Fahrenheit 

5.  T1 

Dewpoint  -  degrees  Fahrenheit 

6.  DO 

Wind  direction  -  degrees 

7.  SO,  S3 

Windspeed  -  knots,  meters  per  second 

8.  PO 

Atmospheric  stability  category 

9.  H3 

Slant  range  to  target  -  kilometers 

10.  RO 

Relative  humidity  -  percent 

11.  XO 

Smoke  screen  length  -  meters 

12.  T2 

Smoke  screen  duration  -  minutes 

13.  S 

Angle  of  sight  to  target  -  degrees 

14.  AO 

Direction  of  line  of  sight  -  degrees 

15.  Y 

Average  roughness  element  -  centimeters 

16.  Z 

Roughness  length  -  centimeters 

17.  P(7 ,9) 

Table  of  stability  categories  depending 
upon  solar  altitude  and  windspeed 

18.  T(4,4) 

Table  of  transmittances  resulting  from 
water  vapor,  haze/fog  precipitation 
and  smoke  for  visual,  near,  mid,  and 
far  infrared  wavelengths 

19.  C(4 ,2) 

Table  of  smoke  concentration  values  for 
HC  and  WP  smoke  (by  wavelengths) 

20.  8(4) 

Absorption  coefficient  error  function 

21.  G(4) 

Scale  height  for  Mie  scattering 

22.  H(4) 

Haze  and  fog  attenuation  coefficients 

23.  R(4) 

Precipitation  attenuation  coefficients 

24.  D(2) 

Table  of  extinction  coefficients  for 
calculating  HC  and  WP  smoke  concentra¬ 
tions  for  visible,  near,  mid,  and  far 
infrared  wavelengths 

25.  A ( 6 ) 

Coefficients  to  compute  sigma  y 

26.  S(6 ,3) ,  05(6,3) 

Coefficients  of  roughness  correction 
factor  used  in  calculating  sigma  z  for 
the  various  roughness  lengths 

27.  Yl,  Y2 

Yield  factors  for  HC  and  WP 

28.  L0,L1 ,Z0,J0,H0 

Latitude,  longitude,  altitude,  Julian 
date  and  Zulu  time  data 

29.  J (4,2) ,  P5(4,2) 

Total  number  >f  rounds  required 
(initial  and  sustaining)  to  maintain  HC 
and  WP  smoke  screen 

30.  E(4,2) ,  F(4,2) 

Number  of  guns  (initial  and  sustaining 

65(4,2),  Q9(4,2) 

volleys)  for  .05-  and  155-mm  howitzers, 
for  HC  and  WP  smokes  (by  wavelengths) 

31.  Rl,  R5(4 ,2) 

Rate  of  fire  for  HC  and  WP  smokes  (by 
wavelengths) 

32.  H5(2 ,2) 

Unit  (per  gun)  source  strength 

93 


33. 

Q(2) 

Munition  efficiency  for  105-  and  155-mm 
howitzers  for  HC  smoke 

34. 

U(2,2) 

WP  volume  source  sigmas  (ay0  and  ozo) 
for  105-  and  155-mm  howitzers 

35. 

V  ( 2) 

Stability  dependent  crosswind 
integrated  concentration  for  WP  smoke 

36. 

W(6) 

Constant  (K)  related  to  stability 
category  for  WP 

37. 

X  ( 4) 

Wavelength  threshold  levels 

38. 

1(4,2),  Y ( 4 , 2 ) 

Shell  spacing  for  105-  and  155-mm 
howitzers  (initial  and  sustaining)  for 
HC  smoke 

39. 

Z(4 ,2) ,  L ( 4 , 2 ) 

Shell  spacing  for  105-  and  155-mm 
howitzers  for  WP  smoke 

40. 

I  $  ( 4 ) 

Met  site  identifier 

41. 

0$(  6) 

Stability  category  indicator 

42. 

A$(8) 

Wavelength  indicator 

43. 

P 

Precipitation  indicator 

44. 

H$(  I) ,  J$(l) 

Direction  from  equator  (N-S)  and 
direction  from  Greenwich  (E-W) 
i ndicators 

45. 

I 

Index  for  wavelength  algorithms 

46. 

J 

Index  for  smoke  algorithms 

47. 

K 

Index  for  gun  (105-  and  155-mm 
howitzers)  algorithms 

*  3n  APPLE  II  these  are  omitted. 
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APPENDIX  J 


r(  HP  85  (BASIC)  ALGORITHM 


D 


1 
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1  0  R EH  r  N  1  \  H l G u R  1  '  i  •  S  1 

R  1 0  H  R  D  0  '•'cM'i  •  R  S  L  > 

2 0  R  E  M  i  W  I  f  METE 0 R 0 L  0 GICAl.  INF 
IJJ  ft  NO  METEOROLOGICAL  CfiLCU 
LB  *  I  OHO 
3  0  C  L  t.  B  R 

40  OPTION  Bh  ~  1 
: 0  PRINTER 

c.  0  0 1  M  C  <  4,  ±  r  <  4 , 4  >  .  U  •  2  ■  ,  W  <  6  ■'  • 


V 1  4  ■  d  >  >  Z  4  >  d  > 

70  DIM  I*C43,  PC  7,  9>  0*Cfc.3  ■  H*C1  3 


80 

■  J$C  1  3 
i  FIXED  2 

30 

PRINT 

1  00 

PRINT 

1  10 

PRINT  " 

MUNITION  EXPEND  I 

1  20 

T IJ  RES" 
PRINT  " 

FOR  HC  BND  WP  S 

i  :••  • 

MOKE  " 

PRINT 

1  4  0 

PRINT 

150  0 1 S F  "SITE  ID"  , 

ISO  INPUT  It 

170  D I S P  "LRTITUDE  OF  SITE-  DEG" 
ISO  INPUT  LO 

1 90  REM  DIRECTION  FROM  EQUftTOP- 
h  OR  S 
20O  Hf-="N" 

210  DISP  "LONGITUDE  OF  SITE  -  DE 
G "  , 

220  INPUT  LI 

270  DISP  "DIRECTION  FROM  GREENWI 
CH-  E  OR  W ”  • 

240  INPUT  Jl 

250  DISP  "JULIAN  DBTE  OF  MET  OBS 
ERUPT  I  ON  0O 1 -SEE  "  ■ 

20 O  INPUT  JO 

270  DISP  "ZULU  TIME  OF  ME T  OSERO 
ATION-HR  '.  01-24  '  "  . 

230  INPUT  HO 

290  DISP  "CEILING  -  FEET", 

3  n  0  I  N  P  U  T  C  O 

3  1  O  C  O  =  C  0 1 . 3  0  4  S 

32o  disp  "Cloud  cower  -  percent" 
330  INPUT  Cl 

340  DISP  "VISIBILITY  -  MILES". 
350  INPUT  00 
3S0  '..'0  =  00*1  6 1 

370  DISP  "PRECIPITATION  -  1=YEC 
0= NO " , 

330  INPUT  P 

330  DISP  " TEMPERATURE  -  DEG  F " ■ 
400  INPUT  T 0 

4  10  T  O  =  5  9 ♦ C T  0 -  3  2  ' 

420  DISP  "DEW  POINT  -  DEG  F "  . 

430  INPUT  T 1 

440  T  1  =5  34  ■.  T  1  •  32  > 

450  DISP  "WIND  DIRECTION  -  DEGS" 
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TO-A121  542 
UNCLASSIFIED 


KUIK  SMOKE  OBSCURATION  MODEL:  USER'S  GUIDE(U)  ARMV 
ELECTRONICS  RESEARCH  AND  DEVELOPMENT  COMMAND  USHR  NM 
ATMOSPHERIC  SCIENCES  LAB  R  PENA  SEP  82 
ERADCOM/ASL-TR-8128  F/G  17/4 


MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  §U*CAU  OA  *TAP*0*»0S  -  ifAl  -  * 


460 

4  ?0 
■i  y  0 

4  30 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 


610 

620 

630 

640 


650 

660 

670 

680 

690 

700 

710 


720 

730 

740 

750 


760 

770 

730 

790 


300 

810 


820 
330 
840 
850 
860 
870 
830 
890 
9  0  0 


INPUT  00 


DISP  "WIND  SPEED  KNOTS", 
INPUT  S0 

DISP  "AVE  ROUGHNESS  ELEMENT 
-  CM"; 


INPUT  Y 

PRINT  USING  520  ,  1$ 

IMAGE  "ID 

PRINt'uSING  540  ;  H$C13;L0 
IMAGE  "LATITUDE  OEG 

=  " , A, DODD . D 

PRINT  USING  560  ;  J$C13;L1 
IMAGE  "LONGITUDE  DEG 

=  " , A, DDDD . D 
PRINT  USING  580  ;  J0 
IMAGE  "JULIAN  DATE  DAY 

=  " , DDDD 

PRINT  USING  600  ;  H0 
IMAGE  "ZULU  TIME  HR 

=  " , DDDD 

PRINT  USING  620  ;  C0 
IMAGE  "CEILING  M 

=  "  , DDDD . D 

PRINT  USING  640  ;  Cl 
IMAGE  "CLOUD  COVER  * 

=  " , DDDD 

PRINT  USING  660  ;  V0 
IMAGE  "VISIBILITY  KM 

-  »  nnnn  n 


P*="NO" 

IF  P=0  THEN  700 
P$="YES" 

PRINT  USING  710  ;  p$ 

IMAGE  "PRECIPITATION 
=  " , AAA 

PRINT  USING  730  ;  T0 
IMAGE  "TEMPERTURE  DEG 

=  " , DDDD . D 

PRINT  USING  750  ;  T1 
IMAGE  "DEWPOINT  DEG 

=  " , DDDD . D 

PRINT  USING  770  ;  D0 
IMAGE  "WIND  DIRECTION  DEG 

=  " , DDDD  D 

PRINT  USING  790  ;  S0 
IMAGE  "WIND  SPEED  KTS 

=  " , DDDD . D 

PRINT  USING  810  ;  Y 
IMAGE  "ROUGHNESS  ELEMENT  CM 
=  " , DDDD . D 

FOR  J=1  TO  9 
FOR  1=1  10  7 
READ  P  ■:  I ,  J  > 

NEXT  I 
NEXT  J 
READ  0 i 

IF  J-T  "E"  THEN  910 
L  1  =  -  L  1 

REM  MET  CALCULATIONS. 
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9  1 0  IF  CIO  100  THEN  960 

926  IF  C0  2133  6042  THEN  960 

930  11=0 

940  12=0 

958  GOTO  1570 

960  REM  CALCULATE  ANGULAR  FRACTI 
ON  OF  A  YEAR  FOR  A  GIVEN  JUL 
IAN  DATE  < A0 > 

970  R9  =  P  I  1  80 
980  09=  J  ;:0  'PI 
990  L0  =  l.O*R9 

1000  A0=tJ0-l> *360/365. 242 
1010  REM  CALCULATE  SOLAR  DECLINA 
TION  ANGLE  t;A4> 

1020  A1=A0*R9 
1030  A2=279  9348+A0 
1040  A2=A2+1  . 914827*SIN<A1  •- . 079 
525*C0S< A1 ) 

1050  A2  =  A2+  0 1 9938*S I N  < 2*A 1 > - . 00 
162*C0S<2*A1 > 

1060  A2=A2*R9 
1870  A3=23 . 4438*R9 
1080  A4=S INC  A3  ) *S 1 N ( A2  > 

1090  A4=ATN  < A4" SQR < 1 -A4*A4+ 1 . E-9 

Q  >  ‘|i 

1100  REM  CALCULATE  THE  TIME  OF  M 
' D I AN  PASSAGE  -  TRUE  SOLA 
tO ON  <  A5  > 

1110  .  =12+  12357*SIN(A1)-. 00428 

9*C0S<A1 ) 

1120  A5=A5+ . 153809*SIN<2*A1 >+  06 
9783TC0S < 2*A 1 > 

1130  REM  CALCULA  1’r  SOLAR  HOUR  AN 
GLE  <  A6 > 

1140  A6= 1 5*  < H0-A o  > -L 1 
1150  A6=A6*R9 

1160  REM  CALCULATE  SOLAR  ALT  I TUO 

E  <  A  7  ) 

1170  A7=S  I  N  L0  )  *S  I  N  C  A4  >  +COS  <L0  >  * 
COS< A-  TCOS  < A6  > 

1180  A7=ATNvA7/SQRC 1-A7*A7+1 . E-9 

9  ) 

1190  A7=A7*09 

1200  REM  CALCULATE  INSOLATION  CA 
LSS  NUMBER. 

1210  12=0 

1220  IF  A? <=60  THEN  1250 

1230  12=4 

1240  GOTO  1330 

1250  IF  A7<=35  THEN  1280 

1260  12=3 

1270  GOTO  1330 

1280  IF  A7  <= 1 5  THEN  1310 

1290  12=2 

13A0  GOTO  1330 

1710  IF  A 7 < = 0  THEN  1520 

1320  13=1 

1330  CFM  CALCULATE  NET  RADIATION 
INDEX  FOR  DAYTIME 
.740  13=0 


1756  IF  Cl >50  THEN  1380 
1360  13=12 
1378  GOTO  1460 

1380  IF  C0>=2133 . 6042  THEN  1410 
13*30  13=12-2 
I486  GOTO  1460 

1410  IF  C0>*48?6 . 8096  THEN  1440 

1420  13=12-1 

1430  GOTO  1460 

1440  IF  C1O100  THEN  1460 

1450  13=12-1 

1460  IF  1300  THEN  I486 

1470  13=12 

1480  IF  I 3> 1  THEN  1500 
1490  13=1 
1500  11=13 
151G  GOTO  1576 

1520  REM  CALCULATE  NET  RADIATION 
INDEX  FOR  NIGHTTIME 
1530  IF  Cl. >40  THEN  1560 
1540  I  1 =-2 
1558  GOTO  1570 
1560  1 1 =- 1 

1570  REM  CALCULATE  PASGUILL  STAB 
ILITY  CATEGORY. 

1580  14=0 
1590  15=0 

1600  IF  1104  THEN  1620 
1610  14=1 

1620  IF  1103  THEN  1640 
1630  14=2 

1640  IF  1102  THEN  1660 
1650  14=3 

1666  IF  IlOl  THEN  1680 
1670  14=4 

1680  IF  I1O0  THEN  1700 
1690  14=5 

1700  IF  II  0-1  THEN  1720 
1710  14=6 

1720  IF  110-2  THEN  1740 
1730  14=7 

1740  IF  S0>=2  THEN  1770 

1750  15=1 

1760  GOTO  1990 

1770  IF  S9> =4  THEN  1808 

1780  15=2 

1798  GOTO  1990 

1800  IF  S0>  =6  THEN  1830 

1810  15=3 

1320  GOTO  1990 

1830  IF  S0>  =  7  THEN  I860 

1840  15=4 

1850  GOTO  1990 

I860  IF  S0> =8  THEN  1890 

1870  15=5 

1880  GOTO  1990 

1890  IF  S 0 >  —  1 0  THEN  1920 

1900  15=6 

1910  GOTO  1990 

1920  IF  S0>=11  THEN  1950 
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1930  15  =  7 

1940  GOTO  1990 

1950  IF  S0>  =  12  THEN  1980 

19  fc-0  15=8 

1970  GOTO  1990 

1980  15=9 

1990  P0=P<I4,I5> 

2000  REM  CALCULATE  RELATIVE  HUMI 
0  I  T  Y 

201O  IF  T0>0  THEN  2050 

202O  A0=9 . 5 

2030  80=265.5 

2040  GOTO  2070 

2050  A0=7 . 5 

2060  B0=237 . 3 

2070  IF  T 1 > 0  THEN  2110 

2080  A 1 =9 . 5 

2090  81=265.5 

2100  GOTO  2130 

2110  A 1=7 . 5 

2120  81=237  3 

2130  E0  =  6  .  1  t*10M  A0*T0.'<B0+T0>  > 
2140  El  =6 . 1  1*10a<:A1*T1/'<B1+T1  >> 
2150  R0=E1/E0»100 
2160  PRINT 
2170  PRINT 

2130  PRINT  USING  2190  ;  Q*LP0,P0 
1 

2190  IMAGE  "PASQUILL  STABILITY  C 
ATEGORY  ".ft 

220O  PRINT  USING  2210  R0 
2210  IMAGE  "RELATIVE  HUMIDITY 
" , DDDD . D 

2220  PRINT 

2230  REM  PASQUILL  STABILITY  CATE 
GORY  DATA 

2240  DATA  1 , 1 , 2, 3, 4 , 6, 6 
2250  DATA  1,2, 2, 3, 4, 6, 6 
2260  DATA  1,2, 3, 4, 4, 5, 6 
2270  DATA  2 , 2 , 3 , 4 . 4 , 5 , 6 
2280  DATA  2, 2, 3, 4, 4, 4, 5 
2290  DATA  2, 3, 3, 4 , 4 , 4 , 5 
2300  DATA  3, 3, 4, 4, 4, 4, 5 
2310  DATA  3, 3, 4, 4, 4, 4, 4 
2320  DATA  3, 4, 4, 4, 4, 4, 4 
2330  DATA  "ABCDEF" 

2340  REM  KW I K :  ATMOSPHERIC  OPTIC 
S  AND  SMOKE  CONCENTRATION  C 
ALCULAT I ONS 

2350  DIM  B<4>,G<4>,H(4>,R<4).D(2 

>  ,  X  <  4  > 

2360  !  FIXED  2 

2370  FOR  1=1  TO  4 

2380  READ  6< I > , G< I > , X< I > 

2390  NEXT  I 
2400  «..*  l  =LOG  <  V0> 

2410  *..'2=VlTMl 
2420  ','3=V2*V1 

2430  H < 1>  =  1 . 555 1 - . 98 1 1 *V 1 -  0 1 97  * 
V2+  0O4  1 1  \>  3 
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2 44G  H'  1  >  =EXP < H<  1  >  > 

2450  H<  2>  =  1 . 5838151 1- . 992318519* 
VI-  01 597280 1*V2  + . 00368583* 

i.i  7 

2460  H<2>=EXP<H<2> > 

2470  H  <  3  >  =  1  2394-1  0436*V1  +  . 0099 
*V2- . 00 1 6*V3 
2430  HC3>=EXP<H<3>> 

2490  H  <  4  >  =  1 . 5176-1  . 7147*V1+ . 0001 
*V2+ . 0428*V3 
2500  HC4>=EXPCH(4>) 

2510  R  <  1 >  =  1 . 3306- . 8825*V 1- . 0753* 
V2+ . 0129*V3 
2520  R(  1  >=EXP<R<  1  >  ) 

2530  R<2>= 1 . 481951707- . 922595829 
*V1-  065509417*V2+. 01368042 
2*V3 

2540  R<2>=EXP<R<2> > 

2550  R  <.  3  >  =  1 . 5556-  .  9013*V1-  .  0773* 
V2  +  0 1 73*V3 
2560  R< 3>=EXP(R<3> ) 

2570  R  <  4  )  =  1  5928- . 9396*V 1 - . 0627* 
V2+ . 0 1 68*  V3 
2580  R<4>=EXP<R<4) ) 

2590  H0=0 

2600  DISP  "SLANT  RANGE  TO  TARGET 
-  KM"; 

2610  INPUT  H3 

2620  PRINT  USING  2630  ;  H3 
2630  IMAGE  “SLANT  RANGE  TO  TARGE 
T  -  KM  ",00D 

2640  DISP  "VERT  ANGLE  OF  SIGHT  T 
0  TARGET  -  DEG"; 

2650  INPUT  S 

2660  PRINT  USING  2670  ;  S 
2670  IMAGE  "ANGLE  OF  SIGHT  TO  TG 
T  -  DEG  " ■ DDD 
2680  IF  S>=0  THEN  2700 
2690  S=-S 
2700  S=S*<PI-/180> 

2710  S=SI N<S> 

2720  H4=0 

2730  IF  S=0  THEN  2760 
2740  H4= 1 yS 

2750  REM  CALCULATE  PRECIPITABLE 
WATER . 

2760  W= . 4477+ . 0328*T1+ . 0012*T1*T 
1+ . 0000 184*T1*T1*T1 
2770  REM  CALCULATE  AMOUNT  OF  WAT 
ER  IN  PATH. 

2780  DEF  FNA<A>  =  EXP < -S*A/2 > 

2790  L0=H3 

2800  L 1 =H0 

2810  L2=L0 

2820  L3=  5*  <  L 1 +L2  > 

2830  L4=L2-L 1 
2840  L5=  238675 1*L4 
2850  W0  —  .  5*L4*f.FNR<:L3+L5>+FNRCL3 
-L5  >  > 

2860  W1=W*W0 
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2870  F'EM  CALCULATE  TRANSM  I  TTANCE 
S  FOR  V  I SURL-  NEAR,  MID  AND 
FAR  IR  WAVELENGTHS 
2880  FOR  1=1  TO  4 
283*0  REM  CALCULATE  TRANSMITTANCE 
S  OWING  TO  ABSORPTION  BY  WA 
TER  VAPOR. 

28O0  IF  10  4  THEN  2830 
2910  T(I,1 >=EXPC- . 0681*W1 > 

2920  GOTO  3030 

2930  DEF  FNBCB>  =  EXPC-B~2> 

2940  L0=B< I )*SQR<W1*PI )  -y2 

2950  L 1 =H0 

2960  L2=L0 

2970  L3=  5*<L1+L2> 

2980  L4=L2-L1 
2990  L5=  .  2386751*L4 
3000  M2= . 5*L4*<FNBCL3+L5>+FNB<L3 
-L5)  > 

3010  TCI, 1 >=2/SQR<PI>*M2 
3020  TC  I  ,  1  >  =  1-T<  I  ,  1  ) 

3030  REM  CALCULATE  TRANSMITTANCE 
OWING  TO  ATTENUATION  BY  HA 
ZE  AND  FOG. 

3040  IF  P=8  THEN  3070 
3050  TCI..  2>  =  1 
3060  GOTO  3350 
3078  IF  V0>  =GC I >  THEN  3270 
3080  DEF  FNCCC)  =  EXP<;C*S*LOGC  .  1 
/ HC I ) ) > 

3090  L0=H4 
3100  L1=H0 
3110  L2=L0 
3120  L3=. 5*CL1+L2> 

3130  L4=L2-L1 
3140  L5=  2386751*L4 
3150  T3=  5*L4*CFNCCL3+L5>+FNCC 
L3-L5  >  > 

3160  T4=EXPC-HC I >*T3> 

3170  DEF  FNDCD>  =  EXPC-D*S/4 . 1 > 

3180  L 1 =H4 

3190  L2=H3 

3200  L3= . 5TCL1 +  L2> 

3210  L4=L2-L 1 
3220  L5=  2886751*L4 
3238  T5=  5*l.4*CFNDCL3  +  L5>+FNDCL3 
-  L  5  >  > 

3240  T6=EXP<-  1284T5) 

3250  T  c 1 , 2  >  =  T4*T6 

3260  GOTO  3350 

3270  L0=H3 

3280  L 1 =H0 

3290  L2=L0 

3300  L3= . 5*CLi+L2> 

3310  L4=L2-L 1 
3320  L5= . 2886751 *L4 
3330  T 7= . 5*L4*CFNDCL3+L5>+FNDCL3 
-L5>  ) 

3340  TC I , 2?=EXPC-H< I >*T?> 

3350  REM  CALCULATE  TRANSMITTANCE 
OWING  TO  ATTENUATION  BY  PR 
EC  IP  I  TAT  ION. 
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3360  IF  P=1  THEN  3390 

3370  T(L3)  =  1 

3380  GOTO  3410 

3390  IF  V0> 20  THEN  3370 

3400  TCI,  3>=EXP<-H3*R< I  )  > 

3410  REM  CALCULATE  TRANSMITTANCE 
OWING  TO  ATTENUATION  BY  SM 
OKE  . 

3420  T< I , 4>=XCI >/<T< I , 1 >*T< I , 2>* 
T(I,3>) 

3430  IF  T  <  I  ,  4  >  <=  1  THEN  3450 
3440  T  < I, 4  >  =  1 

3450  REM  CALCULATE  LINE  OF  SIGHT 
INTEGRATED  CONCENTRATION. 
3460  FOR  K= 1  TO  2 
3470  READ  0<K) 

3480  NEXT  K 

3490  IF  T(L4X>1  THEN  3540 

3500  FOR  J=1  TO  2 

3510  C<I,J>=0 

3520  NEXT  J 

3530  GOTO  3600 

3540  FOR  K.= 1  TO  2 

3550  IF  0<K ) <>0  THEN  3580 

3560  C(I<K)s0 

3570  GOTO  3590 

3580  C  <  I ,  K  )  =LOG  (T(L4))/(-D(K)) 
3590  NEXT  K 
3600  NEXT  I 

3610  DATA  . 118,26.7, .05 
3620  DATA  . 18,7.5, .05 
3630  DATA  .55,5.1, .05 
3640  DATA  0,5, .05 
3650  DATA  3  3,2.46 
3660  DATA  15,2 
3670  DATA  0,  25 
3630  DATA  0,  32 

3690  REM  KW I K :  ATMOSPHERIC  OIFFU 
SION  AND  SMOKE  SOURCE  STREN 
GTH  CALCULATIONS 

3700  DIM  S •' 6 , 3 )  ,  A < 6 >  ,  Q < 2 >  ,  H5 < 2 , 2 
> , D5  <  6 , 3  > , U  <  2 , 2 ) 

3710  !  FIXED  2 

3720  DISP  "DIR  < FR  NORTH)  OF  LIN 
E  OF  SIGHT-DEG"  .; 

3730  INPUT  A0 
3740  PRINT  USING  3750  ;  A0 
3750  IMAGE  "DIR  OF  LINE  OF  SIGHT 
-  DEG  " , DDD 
3760  PRINT 

3770  REM  ATMOSPHERIC  DIFFUSION  C 
ALCULAT I ONS 
3780  FOR  1=1  TO  6 
3790  READ  R<I> 

3380  NEXT  I 
3810  FOR  1=1  TO  6 
38 20  FOR  J=1  TO  3 
3830  READ  S<I,J> 

3840  NEXT  J 
3850  NEXT  I 


3860  FOR  1=1  TO  6 
3870  FOR  J=1  TO  3 
3886  READ  05-:.  I  ■  J> 

3880  NEXT  J 
3900  NEXT  I 

3910  READ  H5<1,  1 > , H5< 1 , 2) , H5<2,  1 
) ,H5<2,2> 

3920  READ  LK  1 ,  1  >  ,  U<2/  1  >  ,  U(1 , 2)  ,  IJ 
<2,2  > 

3930  Al=-1  24+1  19*LGT<Y> 

3940  Z=10'fll 

3950  ft2  =  FlBS < R0-D0 )*<PI/180) 

3960  R2=SQR< 1 3 . 69/ < 13 . 69*SIN<A2> 
*S I N <  02 > +COS <  fi2 > *COS <  A2  > >  > 
3970  Y 1  =  1 . 09521547+ . 02906894*R0- 
00049575*R0*R0+ . 00000482*R 
0*R0*R0 

3980  Y2  =  3 . 364059144+ . 060502571*R 
0- . 001 15301 *R0*R0+ . 00001339 
42*R0*R0*R0 

3990  C2  =  S  < P0 • 1 )+S<P0, 2>*Z+S<P0, 3 

>*Z*2 

4000  D1=D5<P0, 1 >+D5<P0,2)*2+D5<P 
0, 3>*Z^2 
4010  02=1/01 
4020  IF  80  >0  THEN  4040 
4030  80=1 

Am  4.0  c-J=  S  1  Si"  Qft 

4950  DISP" "SCREEN  LENGTH  -  METER 

8" 

4060  INPUT  X0 

4870  DISP  " DURATION  -  MINUTES" i 
4080  INPUT  T2 
4090  FOR  N=l  TO  6 
4100  READ  H < H > 

4110  NEXT  N 
4120  FOR  1=1  TO  4 
4130  REM  CALCULATE  CROSSWINO  INT 
EGRATEO  CONCENTRATION  FOR  W 
P  SMOKE 

4140  FOR  K= 1  TO  2 
4150  IF  I <3  AND  P0>  4  THEN  4190 
4160  81  =U<K,  1  )  +  .  ?4*A(P0>*100/‘  .  9 
4170  S2=U<K, 2>+ . 667*C2*100AD1 
4180  V<K>=W<P0)*Y2*H5<K,2>/<PI*S 
1  *  S  2  ) 

4190  REM  MUNITION  EXPENDITURES  < 
HC  SMOKE) 

4200  REM  MUNITION  EFFICIENCY 
4210  GK  1  >  =  .  4 
4220  G  <  2  )  =  4 

4230  REM  SUSTAINING  SHELL  SPACIN 
G  FOR  HC  SMOKE 
4240  IF  I > 2  THEN  4310 
4250  IF  C <  I  ,  1)00  THEN  4280 
4260  V < I , K  >  =  0 
4270  GOTO  4310 

4280  Y < I , K)=l/R2*<  . 73 1  * Q < K ) * Y 1 *H 
5  <  K ■ 1  •/<C2*S3*C< I , 1 >>>*02 
4290  IF  Y-  I  .KXX0  THEN  4310 
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•4  300  I  1  I  ,  K  ,■  =  X 0 
4310  NEXT  K 
4320  NEXT  I 

4330  REM  DATA  USED  TO  CALCULATE 
SIGMA  V  FOR  CONTINUOUS  SOUR¬ 
CE  . 

4340  DATA  4 , . 32 , . 22 , . 1 44 , . 1 02 , . 
076 

4350  REM  DATA  USED  TO  CALCULATE 
SIGMA  2  FOR  CONTINUOUS  SOUR 

CE  . 

4360  DATA  . 139085297, . 015017284, 
-.000102581 

4370  DATA  122097643,  01097037,- 
. 0000680135 

4388  DATA  . 1 10104377, . 010962963, 
-  0000673401 

4390  DATA  . 097649832, . 010418519, 
- .0000683502 

4400  DATA  .070772166, .00727284, - 
.0000450056 

4410  DATA  .055487093, .00655309, - 
. 0000401796 

4420  DATA  . 9448 1 48 1 5 , - . 00485 1 85 , 

. 000037037 

4430  DATA  . 894803591 ,-. 00483951 , 

. 0000359147 

4440  DATA  . 854792368, - . 00482716, 
0000347924 

4450  DATA  . 816026936, -. 00607407, 
000047138 

4460  DATA  . 786026936 00607407 , 
000047138 

4470  DATA  7260 1 57 1 3 , - . 00606 1 73 , 

. 00O0460157 

4480  REM  UNIT  <PER  GUN)  SOURCE  S 
TRENGTHS. 

4490  DATA  18.7,1737.3,77.1,7076. 

4580  REM  WP  VOLUME  SOURCE  SIGMAS 

(  U  <  2 , 2  )  >  . 

4510  DATA  5.4,7.9,18,2.6 
4520  REM  STABILITY  CONSTANTS  FOR 
WP  SMOKE 

4530  DATA  016, . 016, . 016,  016, . 0 
16, .016 

4540  REM  KWIK  MUNITION  EXPENDIT 
URES  ^CONTINUATION) 

4550  DIM  R5<4,2), I <4, 2), J<4,2),P 
5  <  4 , 2 ) , E  <  4 , 2 ) , F  <  4 , 2 ) , G5  <  4 , 2 
) , Q9  <  4 , 2 ) , L  <  4 , 2 ) 

4560  DIM  A*C8I1 
4570  !  FIXED  2 
4580  S3=S0*.515 
4590  REM  UNIT  SOURCE  STRENGTH 
4600  READ  H5< 1,1), H5  < 1 , 2 ) , H5  <2,1 
) , H5  <  2 , 2 ) 

4610  FOR  1=1  TO  4 
4620  FOR  K  =  1  TO  2 
4630  IF  I > 2  THEN  4950 
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4640  REM  CALCULATE  INITIRL  SHELL 
SPRCING  FOR  HC  SMOKE. 

4650  I<I,K'=S3*45 

4660  IF  YU.K><>0  THEN  4700 

4670  E(I,K)=1 

4660  F(I,K)=1 

4690  GOTO  4850 

4700  REM  CALCULATE  INITIRL  VOLEY 
FOR  HC  SMOKE . 

4710  IF  I < I , K>>Y<I ,K)  THEN  4730 
4720  GOTO  4740 
4730  ICI,K>=Ya,K> 

4740  E<I,K>=K0^ICI,K) 

4750  Q5=INT<E<I,K>> 

4760  Q6=E (LK) -Q5 
4770  IF  06=0  THEN  4790 
4780  EU,K>=G5+1 

4790  REM  CALCULATE  NUMBER  OF  GUN 
S  FOR  SUSTAINING  VOLLEYS  <H 
C  SMOKE) . 

4800  F  (  I  .•  K)=X0^  Y<  I  >  K> 

4810  Q5=INT <F< l >  K) > 

4820  06=F  <  I  >  K  ) -Q5 
4838  IF  Q6=0  THEN  4850 
4840  F<I,K)=Q5+1 
4850  REM  CALCULATE  RATE  OF  FIRE 
OR  HC  SMOKE. 

4860  Rl=  .  5 

4870  IF  C<I,1><>0  THEN  4890 
4880  P 1 =0 

4890  REM  CALCULATE  TOTAL  NUMBER 
OF  ROUNDS  REQUIRED  <HC  SMOK 

E>  . 

4900  J(I,K)=E( I ,K>+<R1*T2-1 >*F< I 

..  K  ) 

4910  05= I  NT  <  J< I >  K) ) 

4920  G6=J<I>K)-Q5 
4930  IF  06=0  THEN  4950 
4940  J( I / K>=Q5+1 
4950  IF  I <3  AND  P0>4  THEN  5480 
4960  REM  SHELL  SPACING  <L<  )  &  Z 
<  >>  &  VOLLEYS  <G<  >  &  Q<  > 
>  -  WP  SMOKE 

4970  IF  C<  1,2)00  THEN  5020 

4980  Z< I / K > =0 

4998  G5< I / K)=0 

500O  09  < I > K>=0 

5010  GOTO  5170 

5020  IF  I> 2  THEN  5090 

5030  L<I,K)=V<K)/'C(I,2>*100 

5040  IF  L(LKX=X0  THEN  5060 

5050  L  < I >  K ) =X0 

5060  Z<I,K>=L<I,K> 

5070  G5<I,K)=X0/Z<I,K> 

5080  GOTO  5100 

5090  G5<I ,K>=  6*C<I,2)'V<K> 

5100  Q5=INT<G5<I,K>> 

5110  Q6=G5  I  •  K  >-Q5 
5120  IF  06=0  THEN  5150 
5130  G5< I • K)=Q5+1 


5141?  GOTO  5160 
5150  G5 'I •  K  ) =Q5 
5160  Q9< I , K)=G5< I , K> 

5170  REM  RATE  OF  FIRE  FOR  WF  SMO 

K  E  . 

5180  IF  C<  1,2)00  THEN  5210 

5190  R5<I,K>=0 

5200  GOTO  5350 

5210  IF  1)2  THEN  5240 

5220  R5< I , K)=<2< I > K>+60)^S3 

5230  GOTO  5250 

5240  R5< I , K>=120/S3 

5250  R5d,K)  =  R5<I,K>^20 

5260  R5=INT <R5< 1,10) 

5270  R6=R5<I ,K)-R5 
5280  IF  R6< . 5  THEN  5300 
5290  R5=R5+1 
5300  IF  R5<> 0  THEN  5320 
5310  R5= 1 

5320  R5<I,IO=R5*20/60 
5330  R5<I,K>=1/R5<I,K> 

5340  IF  R5<I,K)<1  THEN  R5<I,K>=1 
5350  REM  CALCULATE  TOTAL  NUMBER 
OF  ROUNDS  REQUIRED  <WP  SMOK 
E  ) 

5360  IF  C<I,2X>0  THEN  5390 
5370  P5< I , K>=0 
5380  GOTO  5810 
5390  IF  I > 2  THEN  5420 
5400  P5< I, K>=G5< 1,K>+Q9< I, K>*(T2 
*R5< I , K  >  —  1 > 

5410  GOTO  5430 

5420  P5< I  >  K) =Q9< I >  K)*<X0/60+ 1 >*< 
T2*R5< I , K> - 1 > 

5430  Q5= I  NT  <  P5< I ■ K>  > 

5440  Q6=P5< I > K)-Q5 
5450  IF  G6=0  THEN  5470 
5460  P5< I , K)=Q5+1 
5470  GOTO  5810 

5480  REM  CALCULATIONS  FOR  HP  SMO 
KE  E  St  F  STABILITY  CATEGORI 
ES  <STABLE  FLOW) . 

5490  REM  INITIAL  SHELL  SPACING 
5500  IF  1=1  AND  K= 1  THEN  5530 

5510  IF  I <7  AND  K= 2  THEN  5530 

5520  IF  I=-  AND  K=1  THEN  5550 

5530  L ■ I / K ) = 1 00 
5540  GOTO  5560 
5550  '  <  I  ,  K. )  =50 

5560  REM  SUSTAINING  SHELL  SPACIN 

5570  IF  1=1  AND  K=1  THEN  5610 

5580  IF  1=2  AND  K=2  THEN  5610 

5590  IF  1=1  AND  K=2  THEN  5630 

5608  IF  1=2  AND  K=1  THEN  5650 

5610  Z  < I ■ K  >  =  1 00 

5620  GOTO  5660 

5630  Z(I.'K )  =200 

5640  GOTO  5660 

5650  Z < I ; K ) =50 
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5660  REM  INITIAL  VOlLEY  -  WP  SMO 

KE  . 

567Q  G5<  I  ■  K>=X@/'Lt  I  •  V  '  +  1 
568©  PEM  SUSTAINING  VOLLEY. 

5690  Q9<  T  K)=X0/Z<  I  ,  K>  +  1 

5700  REM  RATE  OF  FIRE  -  WP  SMOKE 

5710  IF  K= 1  THEN  5730 
572C  IF  K=2  THEN  5750 
5730  R5< I , K>=2 
5740  GOTO  5760 
5750  R5< I ■ K>= 1 

5760  REM  TOTAL  NUMBER  OF  WP  ROUN 
DS  REQUIRED 

5770  P5 U , K > «G5 < I , K >  +09 < I , K  > * < T2 
*R5< I,K>-1 > 

5780  05=INT(P5<I ,K)) 

5790  Q6=P5<  I  .•  K>-05 

5800  IF  Q6> 0  THEN  P5< I , K>=Q5+1 

5810  NEXT  K 

5820  NEXT  I 

5830  FOR  1=1  TO  4 

5840  PRINT 

5850  PRINT 

5360  PRINT 

5870  PRINT 

5880  PRINT 

5890  PRINT 

5908  REflO  A* 

5910  PRINT  "  ”.;A* 

5920  PRINT 
5930  PRINT 
5940  PRINT  ** 

METERS  MIN" 

5950  PRINT  USING  5960  }  X0,T2 
5960  IMAGE  "SCREEN  LENGTH'DURAT I 
ON  :  "  ,  DDDDD ,  1X,DDD 
5970  PRINT 
5980  PRINT 

5990  IF  I >2  THEN  6500 
6000  PRINT  "  HC  SMOKE  SC 

REEN  " 

6010  PRINT 
6020  PRINT 

6030  PRINT  "  105MM  HOWIT 

ZEP" 

6040  PRINT 

6050  PRINT  "VOLLEY  GUNS  RATE/  SP 
ACING  ROUNDS" 

6060  PRINT  "  MIN  M 

ETERS" 

6070  PRINT  USING  6080  .;  E<I,1>,I 

<  1  ,  1  > 

6080  IMAGE  "INITIAL  ",000, 7X, ODD 
DDDD 

6090  PP I  NT  USING  6100  ,  F(M,.R 

1 , Y  < 1,1  • ,  J  <  1 ,  1  > 

6 1 00  I  MAGE  " SUSTA IN", ODD , 1 X , DO 
D , 2X ■ DDDDDDD , 1 X , DDDDDD 
6110  PP I  NT 
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6 1 20  PRINT 
6130  PRINT 

6140  PRINT  "  1 55MM  HOW IT 

ZER" 

6150  PRINT 

6160  PRINT  "VOLLEY  GUNS  RRTE/  SP 
RCING  ROUNDS" 

6170  PRINT  "  MIN  M 

ETERS" 

6180  PRINT  USING  6190  ;  E(L2),I 

<  1 , 2  > 

6190  IMAGE  "  INITIAL  *  ",  ODD, 7X, DDD 
DDDD 

6200  PRINT  USING  6210  ;  F<I,2),R 
1  ,  Y  <•  1 , 2  >  ,  J  <  1 , 2  ) 

6210  IMAGE  "SUSTAIN = ",DDO, IX, DD. 

D,2X,DDDDDDD, IX, DDDDDD 
6220  PRINT 
6230  PRINT 
6240  PRINT 

6250  PRINT  "  WP  SMOKE  SC 

PEEN" 

6260  PRINT 
6270  PRINT 

6280  PRINT  "  105MM  HOW IT 

ZER" 

6290  PRINT 

6300  PRINT  "VOLLEY  GUNS  RATE/  SP 
RCING  ROUNDS" 

6310  PRINT  "  MIN  M 

ETERS" 

6320  PRINT  USING  6330  •  G5U,l)i 
Ul.l' 

6330  IMAGE  "  INITIAL  *  "  ,  DDD,  7X,  DDD 
DDDD 

6340  PRINT  USING  6350  ;  Q9v I , 1 > , 
R5C  I,  1>,  Z  U,  1  >•  P5<  I  ,  1  > 

6350  I  MAGE  "SUSTA IN", DDD , 1 X • DD . 

D , 2X , DDDDDDD ,  1 X , DDDDDD 
6360  PRINT 
6370  PRINT 
6380  PRINT 

6390  PRINT  "  1 5 5 MM  HOW  IT 

ZER" 

6400  PRINT 

6410  PRINT  "VOLLEY  GUNS  RATE  '  SP 
AGING  ROUNDS’ 

6420  PRINT  "  MIN  M 

ETERS" 

6 4 1 0  p R I N T  U S I N G  40  ;  G 5  < I , 2  > , 
L  c  I  ,  2  > 

6440  IMAGE  "INITIAL  " . ODD , 7X , DDD 
DDDD 

6450  PRINT  USING  64 r .  ,  Q9< I , 2> , 

P~  I  . 2 ■  Z  t  I , 2  >  r  5 < 1,2) 

■  E  "SUSTAIN  :  "  ■ DDD,  IX . DD 
•  DDDDDDD  ■  IX,  DDDDDD 
64  70  r  h I N  T 
-480  PRINT 

6490  IF  13  r HEN  6590 
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*500  PRINT  "  WP  SMOKE  SC 

REEN" 

*510  PRINT 
6520  PRINT 

6530  PRINT  “  ROUNDS^  Rfl 

T£y  TOTAL" 

6540  PRINT  "  60  METERS  MI 

NOTE  ROUNDS" 

6550  PRINT  USING  6560  ;  Q9<I,1>, 
R  5 1  I . 1 ) ,P5< I , 1 > 

6560  IMAGE  "105MM  "  .  ODOODO.  4X, 

DDD4K..DDDDD 

6570  PRINT  USING  6580  ;  Q9<1,2), 
R5  v I ,2>,P5<I  • 2  > 

6580  IMAGE  " 155MM;  " , DDDDDD  ,  4X 

.ODD  . 4X.DDD0D 
6590  NEXT  I 
6600  PRINT 
6610  PRINT 
6620  PRINT 
6630  PRINT 
6640  PRINT 
6650  PRINT 
6660  PRINTER  IS  1 
6670  DISP  "DONE" 

6680  REM  UNIT  <PER  GUN>  SOURCE  S 
TRENGTHS . 

6690  DATA  18.7,1737.3,77.1,7076. 
2 

6700  DATA  "VISIBLE:" 

6710  DATA  "NEAR  IR" 

6720  DATA  "MID  IR  " 

6730  DATA  "FAR  IR" 

6740  END 
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HP  9845  (BASIC)  ALGORITHM 


iO  REM  KWIK  SMOKE  ALGORITHM  <  HP  9845)  SEPTEMBER  23,  )9Si 

20  REM  KWIK:  METEOROLOGICAL  INPUTS  AND  METEOROLOG I CAL  CALCULATIONS. 

SO  OPTION  BASE  1 
40  PRINTER  IS  u 

50  DIM  C<4,2>,Tc4,4  >,  VC  2  >,  U<  6  >,  Y<4, 2  >,  Z<  4, 2  > 

bO  DIM  S<  6,  3  >,  A<  6  >,  Q<  2  ),  H5(  2,2),  DSC  6 , 3  > ,  UC  2, 2  ) 

7  0  DIM  R5<  4 , 2  > ,  I  <  4 , 2  > ,  J<  4 , 2  ) ,  P5<  4 , 2  > ,  E<  4 , 2  > ,  F<  4 , 2  > ,  G5c  4 , 2  > ,  Q9<  4 , 2  > ,  L‘  4  , 

SO  DIM  6<  4  ) ,  G<  4  >,  H<  4  >,  R<  4  >  .  DC  2  >,  X<  4  ,» 

9  0  DIM  I*C41,P<7,9>,Q*C63,H*n  I,  J4C13 

)00  DIM  A$C83 

1 i 0  FIXED  2 
1 20  PRINT 
1 30  PRINT 

140  PRINT  "  MUNITION  EXPENDITURES" 

ISO  PRINT  “  FOR  HC  AND  UP  SMOKE" 

ISO  PRINT 
170  PRINT 

ISC  DISP  "MET  SITE  ID"; 

190  INPUT  I* 

200  DISP  "LATITUDE  OF  MET  SITE-  DEG"; 

2:10  INPUT  L0 

220  REM  "DIRECTION  FROM  EQUATOR-  N  OR  S": 

230  H*="N" 

240  DISP  "LONGITUDE  OF  MET  SITE  -  DEG"; 

250  INPUT  LI 

260  DISP  "DIRECTION  FROM  GREENWICH-  E  OR  W"; 

770  INPUT  J * 

2S 0  DISP  "JULIAN  DATE  OF  MET  OBSERVATION"; 

290  INPUT  JO 

300  DISP  "ZULU  TIME  OF  MET  OSERVAT ION-HR " ; 

310  INPUT  HO 

320  DISP  "CEILING  -  FEET"; 

330  INPUT  CO 
340  C0=C0* . 3049 

350  DISP  "CLOUD  COVER  -  PERCENT"; 

3b 0  INPUT  Ct 

370  DISP  "VISIBILITY  -  MILES"; 

3S0  INPUT  V 0 
390  V0=V0*1.61 

400  DISP  “PRECIPITATION  -  l=VES  G*NO"; 

410  INPUT  P 

420  DISP  "TEMPERATURE  -  DEG  F" ; 

430  INPUT  TO 

440  T0=5/9*< TO-32 > 

450  DISP  "DEW  POINT  -  DEG  F" ; 

460  INPUT  T 1 

470  T 1 =5  T 1 -32  > 

480  DISP  "WIND  DIRECTION  -  DEGS"; 

49 0  INPUT  DO 

500  DISP  "WIND  SPEED  KNOTS"; 
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5  1  0 
'52  0 

53  0 

54  0 

55  0 
5b  0 
570 
58  0 
580 
8  00 

6  t  0 
62  u 
6  3  0 
64  0 
6  5;  0 
660 
6  7  0 
6  3  0 

6  9  0 

7  U  0 
71  0 
/  2  0 

7  3  0 

74  0 

75  0 
760 

77  0 

78  0 

79  0 

8  00 
3 )  0 
9  2  0 
83  0 
o4  0 
850 
•S  6  o 
67  0 

'2  y  ij 
y  9  0 
9  U  u 
•>  f  ft 
'i  2  u 
If  3  U 
■i  4  0 
4 ' ;  o 

7  6  0 
•J  7  0 

>  y  u 

4  ~-i  I  I 

1  o  0  M 


INPUT  SO 
DISP  " AVE 
INPUT  V 
DISP  "SLANT 
INPUT  H3 
DISP  “ANGLE 
INPUT  S 

DISP  “DIRECTION 
INPUT  A9 

DISP  "SCREEN  LENGTH 

XO 

‘DURATION  -  MINUTES" 
T2 


ROUGHNESS  ELEMENT  -  CM"; 
RANGE  TO  TARGET  -  KM"; 

OF  SIGHT  TO  TARGET  -  DEG" 
OF  LINE  OF  SIGHT-DEC" 
-  METERS"; 


INPUT 
DISP 
INPUT 
PRINT  " 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT  " 

PRINT  M 
PRINT  " 

PRINT  " 

PRINT  " 

PRINT  “ 

PRINT  " 

PRINT  " 

PRINT  " 

FOR  0=1  TO  9 
FOR  1=1  TO  7 
READ  P< I , J > 

NEXT  I 
NEXT  J 
READ  Q$ 

IF  J*<>"E"  THEN  870 
L1=-L 1 

REM  MET  CALCULATIONS. 

IF  Cl <>100  THEN  920 
IF  C0>21 33 , 6042  THEN  920 
1 1=0 
12=0 

GOTO  1530 

REM  CALCULATE  ANGULAR  FRACTION 
R  9  =  P I  /  1  8  0 
D9= 1 8  0/PI 
L  0=L  0*R9 

A0  =  <  JO-1  >♦'36  0/365.242 
REM  CALCULATE  SOLAR  DECLINATION 
A  1 =A  0*R9 
A  2  =  2  7 9 . 9348  +  AO 

A2=A2+1  •  91482?*SIN<  A1  >-  .  079525 ♦COS':  A1 


ID 

9 

";  I* 

LATITUDE 

- 

DEG 

= 

" ;H*C1 J;L0 

LONGITUDE 

- 

DEG 

= 

‘  ;  J$ [ 1  ];  L  1 

JULIAN  DATE 

- 

DAS' 

= 

-  ;  J  0 

ZULU  TIME 

- 

HOUR 

2= 

"  ;  HO 

CEILING 

- 

METERS 

= 

"  ;  CO 

CLOUD  COVER 

- 

PERCENT 

= 

" ;  C 1 

VISIBILITY 

- 

KILOMETERS 

S 

" ;  VO 

PRECIPITATION 

S 

";P 

TEMPERATURE 

- 

DEG  C 

"  ;  TO 

DEW  POINT 

- 

DEG  C 

* 

“ ;  T 1 

WIND  DIRECTION 

- 

DEG 

9 

"  ;  D  0 

WIND  SPEED 

- 

KNOTS 

s 

“  ;  SO 

AVE  ROUGHNESS  ELEMENT 

- 

CM 

9 

" ;  Y 

OF  A  YEAR  FOR  A  GIVEN  JULIAN  PHTt  <A0 


ANGLE  < A4  )  , 
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1010  42=42*.  Q19938*S1N<  2*41  00162+COS<2*A1  ) 

?020  A2=A2*R9 

1030  43=23 . 4438*R9 

1040  A4=SIN<  A3  >*SIN<  A2  > 

1 05  0  A4=ATN< A47SQRC 1 -A4*A4+ 1 E-99  )> 

1060  REM  CALCULATE  THE  TIME  OF  MERIDIAN  PASSAGE  -  TRUE  SOLAR  NOON  <A5 
1  070  A5  =  1  2  +  . 1 2357*S INt  A 1  )-. 0  04289*00 St  A1  > 

1  08  0  A5-A5+ . 1 53809*S INt 2  4  A 1  >+ , 0b0783*CC'St 2*A1  > 

1090  REM  CALCULATE  SOLAR  HOUR  ANGLE  < A6 > 

1100  A6= 1 5*( H0-A5  )-L 1 

1110  A6=A6*R9 

1120  REM  CALCULATE  SOLAR  ALTITUDE  tA7> 

1  1  30  A7=S INt  L  0  )*SIN<  A4  >+COSt  LO  >*CGS<  A4  >*COS<  46  > 

1 140  A?=ATN< A7/SQR<  1 -A7*A7+ 1 E-99  >> 

1150  47=47*09 

1160  REM  CALCULATE  INSOLATION  CLASS  NUMBER. 

1170  12=0 

1180  IF  A?<  *6 0  THEN  1210 
1 1 90  12=4 

1200  GOTO  1290 
1210  IF  A7<=35  THEN  1240 
1220  12*3 

1230  GOTO  1290 
1240  IF  A7<  =  1 5  THEN  1270 
1250  12=2 

1260  GOTO  1290 
127  0  IF  A 7 < * 0  THEN  148  0 
1280  12=1 

1290  REM  CALCULATE  NET  RADIATION  INDEX  FOR  DAVTIME . 

1300  13=0 

1310  IF  Cl  :>5G  THEN  1340 
1320  13=12 

1330  GOTO  1420 

1340  IF  CO >=2133.6042  THEN  1370 
1350  13=12-2 

1360  GOTO  1420 

1370  IF  CG>=4876 .8096  THEN  1400 

1380  13*12-1 

1390  GOTO  1420 

1 400  IF  Cl < >100  THEN  1420 

1410  13*12-1 

142  0  IF  130  0  THEN  144  0 

1430  13=12 

1440  IF  1 3 > 1  THEN  1460 
1450  13=1 

1460  11=13 

i470  GOTO  1530 

1480  REM  CALCULATE  NET  RADIATION  INDEX  FOR  NIGHTTIME 
1490  IF  Cl  >40  THEN  1520 
1500  1 1 =-2 
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iSlif  GOTO  1530 
152  0  1 1 =  —  1 

1530  REM  CALCULATE  PASGUILL  STABILITY  CATEGOR 
154  0  14=0 

t  ^  5  U  1 5  =  0 

1560  IF  1104  THEN  1580 
1570  14=1 

1580  IF  1103  THEN  1600 
1580  14=2 

1600  IF  1102  THEN  1620 
1610  14=3 

1620  IF  IIOI  THEN  1640 
1630  14=4 

1640  IF  IIOO  THEN  1660 
1650  14*5 

1660  IF  110-1  THEN  1680 
1 67  0  14=6 

1680  IF  110-2  THEN  1700 
1690  14=7 

1700  IF  S0>=2  THEN  1730 

1710  15=1 

1720  GOTO  1950 

1730  IF  S 0 >=4  THEN  1760 

1740  15=2 

1750  GOTO  1950 

1760  IF  S0>*6  THEN  1790 

1770  15=3 

1780  GOTO  1950 

1790  IF  SG>=7  THEN  1820 

1800  15=4 

1810  GOTO  1 950 

182  0  IF  S 0 >=8  THEN  185  0 

1830  15=5 

1840  GOTO  1950 

1850  IF  SO >=10  THEN  1880 

1860  15=6 

1870  GOTO  1950 

1880  IF  SO >=11  THEN  19)0 

1 99  0  15  =  7 

1 9 0  0  GOTO  1950 

1910  IF  SO  >  =  1 2  THEN  1  94  0 

1920  15=8 

1930  GOTO  1950 

1940  15=9 

1950  PO»P< 14,15) 

I960  REM  CALCULATE  RELATIVE  HUMIDITY 

1970  IF  T 0 > 0  THEN  2010 

1980  A0=9 , 5 

1990  B0»26 5.5 

2000  GOTO  2030 
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2010  «0=7 . 5 

2020  B0*237.3 

2030  IF  Tt  >0  THEN  2070 

2040  Hi  =9 . 5 

2050  91=265.5 

2060  GOTO  2090 

2070  A1=7.5 

2080  91*237.3 

2090  E0= 6 . 1 1* 1 0*< AG*TO/< BO+T 0 > > 

2100  E 1  =6  .  1  1  *1  0  •<  A1  *T  1  /<  B 1  +  T1  >  ) 
21 1 0  R0=E1/EG*1 00 


2120 

PRINT  " 

PASQUILL 

STABILITY  CATEGORY 

=  “ ; Q*[P0, POJ 

2130 

PRINT  “ 

RELATIVE 

HUMIDITY 

=  "  ;Ru 

2140 

PRINT 

215  0 

PRINT 

2160  REM  KM  IK :  ATMOSPHERIC  OPTICS  AMD  SMOKE  CONCENTRATION  CALCULATIONS. 
2170  FOR  1=1  TO  4 
2  180  READ  B<  I  >,G<  I  >,  X<  I  > 

>190  NEXT  I 
2200  Vt=LOG<VO> 

2210  V2=V1*V1 

2220  V3*V2*V1 

2230  H< 1  )=1  . 5551  - . 98 1  1 *V 1  - . 0 1 97*V2+ . 0041 *V3 
224  0  H<  1  >»EXP<H<  1  )> 

2250  H<  2>=1  .5038151 1 99231 951 9*V1 - . 01 5972B01 *V2  + . 00363533*^3 

226  0  H<2>=EXP<H<2)> 

227  0  H<  3  )=  1 .2394-1 . Q436*V1+.  QQ99*V2- . 001 6+V3 

228  0  H<  3  >*EXP<  H<  3  )  ) 

2290  H<4 >=\ .5176-1 .7147+V1+. 0001*V2* , 0428+V3 

23  0  0  H<  4 )=EXP<  H<  4  )  > 

23i 0  R< 1  >=1  . 33  06- . 8325*V1 - . 0753*V2+ . 01 29*V3 

232  0  R<  1  >*EXP<R<  1  >) 

233  0  R< 2  >=1  ,481951707- . 922595829*V1- . 0655 094 1 7*V2+ . 01368G422*V3 

234  0  R<  2  )=EXP<  R<  2  >  > 

2350  R<  3  >= 1  .5556- .9013+V1-. 0773*V2+. 0173*V3 
2360  R<  3  >*EXP<  R'.' 3  )  ) 

2370  R<  4  >=  1  . 5928- . 9396*V1 - . 0627*V2+ . 01 68*V3 
2380  R( 4 >*EXP< R< 4 > > 

239  0  H  0=  0 

24  0  0  IF  S >  =  0  THEN  242  0 
2410  S=-S 

2420  S*S*<  PI^180  > 

2430  S=SIN<  S  ) 

2440  H4=  0 

2450  IF  S=0  THEN  2480 
2460  H4= 1 /S 

2470  REM  CALCULATE  PREC IPITABLE  WATER. 

2480  W-.4477* .  0328*T1+1 , *£-3 +7 1 *T 1 +1 . 84E-5+T 1 *T 1 *T 1 

2490  REM  CALCULATE  AMOUNT  OF  WATER  IN  PATH. 

25  0  0  DEF  FNA<  A  >*EXP< -S*A/2  ) 
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i?  5  1  0  L0  =  H3 
252  0  L 1 =H  0 
2530  L2=L0 

254 0  L3= , 5*< L 1 +L2 > 

2550  L4=L2-L 1 

2560  L5= . 388675 1 +L4 

257  0  WG  = . 5*L4*< FNA< L3+L5  )  +  FNA< L3-L5  >  ) 

258  0  W1=W*W0 

2590  REM  CALCULATE  TRAHSMI TTAHCES  FOR  VISUAL,  NEAR,  MID  AND  FAR  IR  WAVELENGTI 
2600  FOR  1=1  TO  4 

2610  REM  CALCULATE  TRANSMI TTANCES  OWING  TO  ABSORPTION  BN'  WATER  VAPOR. 

262  0  IF  104  THEN  2650 
2630  T<  1 ,  1  >=*EXP<  -  .  0681 *W1  > 

2640  GOTO  2750 

2650  DEF  FH6< B >=EXP< -6"2  )  , 

2660  LO=B< I  >*SGR<W1*PI >22  j 

2670  L 1 =H  0 

2680  L2=L  0 

268  0  L3= . 5*< L 1 +L2  > 

270  0  L  4  =  L  2 - L 1 
2710  L5= . 288675 1 *L4 

272  0  M2= . 5*L4*<  FHB< L3+L5  )+FNB<  L3-L5  >  > 

2  73 o  T < 1 ,  1  >=2/SGR< F I  )*M2 
274  0  T<  I,  1  )=1-T<  I,  1  > 

7750  REM  CALCULATE  TRANSMITTANCE  OWING  TO  ATTENUATION  BY  HAZE  AND  FOG. 

2760  IF  P=0  THEN  2790 

2770  T< 1 , 2  >»1 

^8()  GOTO  3070 

2790  IF  V0>=*G<  I  >  THEN  2990 

2 8  0 0  DEF  FNC< C  >=EXP< C*S*LOG<  . 1 /H< I  >  >  ) 

2810  L  0  =  H4 
282  0  L 1 =H  0 
2630  L2  =  L  0 
284  0  L3= , 5*<  L 1 +L2 > 

2850  L4=L2-L 1 

2860  L5=, 288675 1  *L4 

267  0  T3=  . 5+L4*< FNC< L3+L5  )+FNC< L3-L5  )  > 

288 0  T4=EXP< -H< I >* T3 > 

289  0  DEF  FN DC  D  >=EXP<  -D*S/4  ,  1  > 

2900  L 1 =H4 
29 tO  L2=H3 
292  0  L3= . 5*< L 1 +L2  ) 

2930  L4=L2-L 1 

794 u  L5~ . 288675 1 *L4 

2  95  0  T5=  .  5*L4*CFND<  L3  +  L5  )  +  FHD<  L3-L5  > 

.'.'96  0  T  6  =  E  X  P  <  -  .  1  2  8  *  T  5  > 

2970  T<:  I  ,  2  )  =  T4*T6 

2930  GOTO  3070 
2990  L0=H3 

7  00  0  L 1 =H  0 


3010  L2=LG 

3020  L3= . 5*<  L 1+L2  ) 

3030  L4*L2-L 1 

3040  L5= . 268674 1 *L4 

3050  T7= . 5*L4*( FND<  L3+L5  >+FND<  L3-L5  > > 

3060  T<  1 , 2  >=EXP< -H< I  >*T7  > 

3070  REM  CALCULATE  TRANSMITTANCE  OWING  TO  ATTENUATION  BY  PRECIPITATION. 

3080  IF  P=1  THEN  31 1 0 

3090  T<  1 , 3  >=  1 

3100  GOTO  3130 

3110  IF  V 0 > 2 0  THEN  3090 

3120  T<  1 , 3  >=EXP< -H3*R< I >  ) 

3130  REM  CALCULATE  TRANSMITTANCE  OWING  TO  ATTENUATION  BY  SMOKE. 

3140  T<  1 , 4  >=X<  I  >/(.  T<  1 ,  1  >*T<  I,2)*T<  I..3)  > 

3150  IF  T<  I,4X*I  THEN  3170 
3160  T<  1 , 4  >■  1 

3170  REM  CALCULATE  LINE  OF  SIGHT  INTEGRATED  CONCENTRATION. 

3180  FOR  K= 1  TO  2 
3190  READ  D<  K > 

3200  NEXT  K 

3210  IF  T<  1,4)01  THEN  3260 

3220  FOR  J=1  TO  2 

323  0  C< I , J  >*0 

3240  NEXT  J 

3250  GOTO  3320 

3260  FOR  k=1  TO  2 

3270  IF  D<KX>0  THEN  3300 

3280  C<  1,10*0 

3290  GOTO  3310 

33  0  0  C< I , K )=L0G< T < 1,4) V-0< K  > 

3310  NEXT  K 
3320  NEXT  I 

3330  REM  ATMOSPHERIC  DIFFUSION  CALCULATIONS. 

334  0  FOR  L  =  1  TO  6 
3350  READ  A<L  > 

3360  NEXT  L 
3370  FOR  1*1  TO  6 
3380  FOR  J*1  TO  3 
3390  READ  S<I,J> 

3400  NEXT  J 
3410  NEXT  I 
3420  FOR  1-1  TO  6 
3430  FOR  J=1  TO  3 
344  0  READ  D5< I , J  ) 

3450  NEXT  J 
3460  NEXT  I 

3470  READ  H9<  1  ,  1  >,H5<  1 ,2  >,H5C2,  1  >,H5<2, 2  > 

3480  READ  IK  1  ,  1  >,  U(2,  I  >,  U<  1 , 2  >,U<  2,2  ) 

3490  A1«-1 .24+1 , 19*LGT< Y) 

3500  Z-10'A1 


1)8 


3510  A2*A8S<A9-D0)*<PI/18G> 

3520  R2=SQR<  1  3.69X<  1  3 . 69*SIN<  A2  >*SIN<  A2  >+COS<:  A2  >*COS< A2>  >  ) 

3530  Y 1  =  1  . 0952 154?+. 029 068 94 *R 0-4 . 9575E-4+R0+R0+4 . 82E-6*R0*R0*R0 

3540  Y2*3 . 364059144+ . 06 05 025? 1 *R 0- 1 . 1 5301 E-3+RO+RO+1 . 33942E-5+R 0+R G*P 0 

3550  C2*S<  PO,  1  >+S<P0,2i+2+S'iP0,3  >*2'2 

356  0  D1«D5<P0, 1 >+D5< PO, 2 >*Z+D5< PO, 3  >*Z"2 

3570  D2-1XD1 

3580  IF  SOOO  THEN  3600 

3590  S0*1 

3600  S3* . 515+SG 

3610  FOR  N* 1  TO  6 

3620  READ  W<N> 

3630  NEXT  N 
3640  FOR  1*1  TO  4 

3650  REM  CALCULATE  CROSSWIND  INTEGRATED  CONCENTRATION  FOR  WP  SMOKE. 
3660  FOR  K= 1  TO  2 

3670  IF  < I  <  3  )  AND  <P0>4>  THEN  3710 
368  0  S 1 *U<  K ,  1  >+ . 74*A<  PO  >*1 00*  .9 
3690  S2*U<K,2>+.66?*C2*1 00*D1 

37  0  0  V<  K  )=W<  P  0  )*Y2*H5( K, 2  )/<  PI*S 1 *S2  > 

3710  REM  MUNITION  EXPENDITURES  <  HC  SMOKE). 

3720  Q< 1  )*G<  2  >* . 4  !  MUNITION  EFICIENCIES 

3730  REM  SUSTAINING  SHELL  SPACING  FOR  HC  SMOKE. 

3740  IF  I >2  THEN  3810 
3750  IF  C<I,1><>0  THEN  3780 
376  0  Y<l,K)-0 

3770  GOTO  3810 

3780  Y< I , K  )* 1 /R2*<  . 73 1 *Q<  K )*Y 1 *H5<  K, 1  >A C2*S3*C< 1 ,  1  )))'D2 
3790  IF  Y<  I  ,KXX0  THEN  3810 

38  0  0  Y<  I ,  K  )*X0 
38)0  NEXT  K 
3820  NEXT  I 

3830  FOR  1*1  TO  4 
3840  FOR  K= 1  TO  2 
3850  IF  I >2  THEN  4170 

3860  REM  CALCULATE  INITIAL  SHELL  SPACING  FOR  HC  SMOKE. 

387  0  I < I . K  )=S3+45 

338  0  IF  Y<  I,K><>0  THEN  392  0 

.789  0  E <  I ,  K  >  =  1 

39  U  0  F<  I ,  K  )*  1 
3910  GOTO  4070 

3920  REM  CALCULATE  INITIAL  VOLLEY  FOR  HC  SMOKE. 

3930  IF  l< I,K>>Y< I,K>  THEN  3950 
3940  GOTO  3960 

395  0  I<  I,K>=Y<  I,K) 

396  0  E< I , K  )*X0/I< I , K  > 

39  7  0  Q5= I  NT < E< I , K  )  ) 

3980  G6*E< I , K >-05 

3990  IF  06*0  THEN  4010 
4  00  0  E< I . K  )=05+ 1 
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401  0 
4  020 
4  03  0 
4  04  0 
4  05  0 
4  060 
4  07  0 
4  08  0 
4  090 
4100 

41  1  0 
4120 
4130 
414  0 
4150 
4160 
4170 
4180 
419  0 

42  0  0 
4210 

422  0 

423  0 
4240 
4250 
426  0 
4270 
428  0 
4290 

43  0  0 

431  0 

432  0 
4330 
434  0 
4  35  0 
4360 
4370 
4380 
4390 

44  0  0 
4410 

442  0 

443  0 
4440 
4450 
4460 

447  0 

448  0 

449  0 

450  0 


REM  CALCULATE  NUMBER  OF  GUNS  FOR  SUSTAINING  VOLLEYS  < HC  SMOKE). 

F<  I,  k>*X02Y<  I ,  k) 

Q5*INT<  F<  I  ,K>> 

Q6*F< I , K  )-Q5 
IF  Q6*0  THEN  4070 
F<  I  ,K  )=*Q5+1 

R 1  * ■ 5  1  RATE  OF  FIRE  FOR  HC  SMOKE 

IF  C<  1 ,  1  )<  >0  THEN  41 00 
R1  =0 

REM  CALCULATE  TOTAL  NUMBER  OF  ROUNDS  REQUIRED  < HC  SMOKE). 

!  J<  I ,  K  )*£< I ,  K>+ 1 ,'2*F< I , K >*<  T2-2 )|  CHANGE  COORDINATED  WITH  PENA  ON  19MAY81 
J<  I,K>*E<  I,K>+<R1*T2-t  >*F<  I ..  k  >  !%  THIS  LINE  REPLACES  THE  LINE  ABOVE  IT  *. 
Q5*INT<  J<  I,K)) 

Q6=J<  I  /  K  )-G5 
IF  Q6*0  THEN  4170 
J<  I ,  K  )=Q5+ 1 

IF  <I<3>  AND  ( P0>4 )  THEN  4700 


REM  SHELL  SPACING  <L<  )  &  Z<  »  &  VOLLEYS  <G<  )  k  Q<  )>  -  UIF  SMOKE. 

IF  C<  1,2)0  0  THEN  424  0 

Z<  I ,  K  )  *  0 

G5<  I,K>*0 

Q9<  I  /  K  )=  0 

GOTO  4390 

IF  I >2  THEN  4310 

L<  I ,  K  >»V<  K  >/Ci  1 , 2  >*  1  0 0 

IF  L<  I , KXXO  THEN  4280 

L<  I,tO*XO 

Z<  I,K)»L<  I ,  K  > 

G5< I , K  )®X0XZ< I , K  > 

GOTO  4320 

G5<  I ,  K  )=  .  6*C<  1 , 2  )/V<  K  ) 

Q5=INT<  G5< I ,  K  >  > 

Q6*G5< I , K )-Q5 

IF  Q6*0  THEN  4370 

G5<  I ,  K  )=Q5+  1 

GOTO  43S0 

G5<  I  .  K  )=Q5 

Q9<  I ,  K  )=G5<  I ,  K  > 

REM  RATE  OF  FIRE  FOR  WP  SMOKE. 

IF  C<  I,2X>0  THEN  4430 

R5<  I ,  K  )=  0 

GOTO  4570 

IF  I >2  THEN  4460 

R5<  I ,  K  >=<  Z<  I ,  K  )+6  0  VS  3 

GOTO  4470 

R5<  1 , 10*1  20/S3 

R5<  I ,  K  >=R5<  I ,  K  V2  0 

R5*INT(R5< I , K ) ) 

R6=R5< I , K  >-R5 
IF  R6< . 5  THEN  4520 
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451  0 

452  0 

453  0 

454  0 

455  0 

456  0 

457  0 
4  5  S'  0 
4590 
4600 

461  0 

462  0 

463  0 

464  0 

465  0 

466  0 
4670 
4  68  0 
4680 
4  7  0  0 
4710 
4  72  0 
4730 
4740 
4750 
4760 

477  0 
4780 

478  0 
48  0  0 
481  0 
4820 
4830 
484  0 
4850 
436  0 
4870 
483  0 
488  0 
4  8  0  0 
431  0 
492  0 
4  c->  3  0 
4  94  0 
4  9  Z  0 
4  96  0 

497  0 

498  0 

4  9  9  0 

5  00  0 


R5=R5+1 

IF  R5O0  THEN  454  0 
R5=  1 

R5<  I  ,K  >=R5*20.-'6G 
R5<  I,IO=t/R5<  I,K> 

IF  R5<  I ..  K  ><  1  THEN  R5<I,K>=1 

REM  CALCULATE  TOTAL  NUMBER  OF  ROUNDS  REQUIRED  < UP  SMOKE > 

IF  C<  1,2)00  THEN  461  0 

P5< I ,  K  >=  0 

GOTO  5010 

IF  I >2  THEN  4640 

P5<  I ,  K  >=<  T2*R5<  I ,  K>  - 1  >*Q9<  I,K)+G5C  I ,  K  > 

GOTO  4650 

P5(  I ,  K  >*Q9<  I ,  K  )*<  XQXS  0+ 1  >*<  T2*R5<  I,K>-1  > 

Q5=INT< P5<  I,IO> 

G6=P5< I , K  )-G5 


IF  06*0  THEN  4690 
P5<  I ,  K  )*Q5+  1 
GOTO  5000 

REM  CALCULATIONS  FOR  UP  SMOKE 
REM  INITIAL  SHELL  SPACING 
IF  <I*1>  AND  THEN  4750 

IF  < I  <  3  )  AND  < K*2  )  THEN  4750 
IF  <  I  *2  >  AND  <K-1)  THEN  4770 
L< I,K  >*1 00 
GOTO  4780 
L< I , K )*5  0 

REM  SUSTAINING  SHELL  SPACING 
IF  <I  =  1>  AND  <  K= 1  )  THEN  4830 
IF  <1=2)  AND  <K=2>  THEN  4830 
IF  < I  *  1 >  AND  <K*2>  THEN  4850 
IF  < 1=2)  AND  <  K  = 1  )  THEN  4870 


IF  < I  *  1 >  AND  <K*2>  THEN  4850 

IF  < 1=2)  AND  <  K  = 1  )  THEN  4870 

2<  I ..  K  >*1  00 

GOTO  4880 

Z<  I ,  K  >=200 

GOTO  4880 

2i  I ,  K  )=50 

REM  INITIAL  VOLLEY  -  UP  SMOKE 
G5<  I , K  )=X0/L< I , K >+1 
REM  SUSTAINING  VOLLEY. 

Q9<  I ,  K  >=XG/2<  I ,  K  >+  1 


4850 

4870 


REM  RATE  OF  FIRE 
IF  K= 1  THEN  4950 
IF  K=2  THEN  4970 
R5<  I ,  K  >=2 
GOTO  4980 
R5<  I , K  >= 1 
REM  TOTAL  NUMBER 
P5<  I ,  K  >-<  T2*R5<  I  , 
NEXT  K 


SMOKE , 


STABILITY  CATEGORIES  < STABLE  FLOU 


OF  UP  ROUNDS  REQUIRED. 
K  >- 1  )*Q9< 1 . K >+G5< I , K > 
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501  0 

NEXT  I 

5020 

FOR  1  = 

=  1  TO  4 

5  030 

PRINT 

L IN<  7  > 

5  04  0 

READ  A# 

5050 

PRINT 

II 

“  .:  A* 

5060 

PRINT 

L I  N<  2  > 

5070 

PRINT 

M 

METERS  MINUTES" 

5  080 

PRINT 

USING  5090; X 0 ,  T2 

5  09  0 

IMAGE 

M 

SCREEN  LENGTH/DURATION:  “  , DDDDD . , 4X , DD . 

5100 

PRINT 

L I  N<  2  > 

5110 

IF  I  >2 

'  THEN  5530 

5120 

PRINT 

M 

HC  SMOKE  SCREEN" 

5130 

PRINT 

L I  N<  2  ) 

5140 

PRINT 

II 

1 05MM  HOWITZER" 

5150 

PRINT 

L I  N<  1  ) 

5160 

PRINT 

n 

VOLLEY 

GUNS  RATE/  SPACING  ROUNDS" 

517  0 

PRINT 

ii 

MIN  METERS" 

5180 

PRINT 

USING  51  90;  E< 1,1) 

,  I  <  1 ,  1  > 

5190 

IMAGE 

M 

INITIAL : 

" , DDD , 1 1 X , DDD 

5200 

PRINT 

USING  521 0;F< I, 1  ) 

,  R 1  ,  Y<  1 ,  1  ) , 

J<  1,1) 

5210 

IMAGE 

ll 

SUSTAINING 

: " , 2X , DD , 2X , D . D , 5X , DDDD , 3X , DDDD 

522  0 

PRINT 

LINO) 

5230 

PRINT 

ll 

155MM  HOWITZER" 

5240 

PRINT 

LIN< 1  ) 

525  0 

PRINT 

f« 

VOLLEY 

GUNS  RATE/  SPACING  ROUNDS" 

5260 

PRINT 

II 

MIN  METERS” 

5270 

PRINT 

USING  5 1  90;  E<  1,2.' 

, I<  1 , 2  > 

5280 

IMAGE 

II 

INITIAL! 

" , DDD, 1  OX, DDDD 

5290 

PRINT 

USING  521 u;F< 1,2) 

,R1  ,Y<  1,2), 

J<  1,2) 

5300 

IMAGE 

II 

SUSTAINING 

: " , 2X , DD , 2X , D . O , 5X , DDDD , 3X , DDDD 

531  0 

PRINT 

LINC  3  ) 

532  0 

PRINT 

M 

WP  SMOKE  SCREEN" 

5330 

PRINT 

L IN<  2  > 

534  0 

PRINT 

II 

1 05MM  HOWITZER" 

5350 

PRINT 

L I N<  1  ) 

5360 

PRINT 

•1 

VOLLEY 

GUNS  RATE/  SPACING  ROUNDS" 

537  0 

PRINT 

It 

MIN  METERS" 

538  0 

PRINT 

USING  5190; G5< I , 1 

>,L<  I,  1  ) 

539  0 

IMAGE 

II 

INITIAL: ", 

DDD, 1  OX, DDDD 

5400 

PRINT 

USING  5300; Q9< 1,1 

),R5<  I,  1  ) ,  2 <  I,  1  ) ,  P5<  1,1) 

5410 

IMAGE 

M 

SUSTAINING 

: " , 2X , DD , 2X , D . D , 5X , DDDD , 3X , DDDD 

5420 

PRINT 

L 1  H<  3  ) 

5430 

PRINT 

II 

155MM  HOWITZER" 

544  0 

PRINT 

LIN< 1  ) 

5450 

PRINT 

M 

VOLLEY 

GUNS  RATE/  SPACING  ROUNDS" 

5460 

PRINT 

II 

MIN  METERS" 

547  0 

PRINT 

USING  5190; G5( 1,2 

>,L<  1,2) 

5480 

IMAGE 

It 

INITIAL:", 

ODD, 1  OX, DDDD 

5490 

PRINT 

USING  5300; G9<  1,2),  R5<  1 , 2  ),  2 

v  1,2),  P5<  1,2  ) 

55  0  0 

IMAGE 

M 

SUSTAINING 

: "  ,  2X , DD . 2X , D . D . 5X , DDDD . 3Z , DDDD 
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UP  SMOKE  SCREEN 


5510 
5520 
5530 
554  0 
5550 
5560 
5570 
5580 
5580 
5600 
56 1  0 
5620 
5630 
564  0 
5650 
5660 
567  0 
5680 
569  0 
5700 
571  0 
5720 
5730 
574  0 
5750 

576  0 

577  0 
5780 
5790 
5800 
581  0 
5820 
5830 
584  0 
5850 
586  0 
5870 
588  0 
569  0 
590  0 
59  ;  0 
5920 

593  0 

594  0 

595  0 

596  0 
5970 

598  0 

599  0 

600  0 


PRINT  LIN<  2  > 

IF  I < 3  THEN  5610 
PRINT  • 

PRINT  LIN<  2  ) 

PRINT  "  ROUNDS/  RATE/  TOTAL” 

PRINT  “  60  METERS  MINUTE  ROUNDS" 

PRINT  USING  5580;Q9< I, 1 >,R5< I, 1 >,P5< I, 1 > 

IMAGE  “  105MM;  “ , DDDDD . , 5X , DDD . , 5X , DDDDDOO . 

PRINT  USING  5600;G9<  I,2>,R5<  I,2>,P5<  I,2> 

IMAGE  “  155MM:  "  , DDDDD .  , 5X , DDD 5X , DDDDDDD . 

NEXT  I 

PRINT  LIN<  6  > 

PRINTER  IS  16 
DISP  "DONE" 

REM  PASQUILL  STABILITY  CATEGORY  DATA 

DATA  1,1, 2,3/4, 6, 6 

DATA  1 ,2, 2,3, 4, 6, 6 

DATA  1 ,2, 3, 4, 4, 5, 6 

DATA  2, 2, 3, 4, 4,  5, 6 

DATA  2, 2, 3, 4, 4, 4, 5 

DATA  2, 3,3,4, 4, 4, 5 

DATA  3, 3, 4, 4, 4, 4, 5 

DATA  3, 3, 4, 4, 4, 4, 4 

DATA  3, 4, 4, 4, 4, 4, 4 

DATA  " ABCDEF ” 

REM  ABSORPTION  COEFICIEHT,  SCALE  HEIGHT  AND  WAVELENGTH  ''MKESr'  ■  A . 

DATA  0. 1 18,26.7, 0. 05 

DATA  0.13,7.5,0.05 

DATA  0.55,5.1,0.05 

DATA  0,5,0.05 

REM  EXTINCTION  COEFICIEHTS  FOR  HC  AND  UP. 

DATA  3.3,2.46 
DATA  1.5,2 
DATA  0,0.25 
DATA  0,  0.32 

REM  DATA  USED  TO  CALCULATE  SIGMA  Y  FOR  CONTINUOUS  SOURCE. 

DATA  0 , 4, 0 . 32,  0 . 22,  0 . 144,  0 . 1  02, 0 . 076 

REM  DATA  USED  TO  CALCULATE  SIGMA  Z  FOR  CONTINUOUS  SOURCE, 

DATA  0. 139  085297, 0. 015017234,-1  . 0258  IE- 04 
DATA  0. 122097643, 0.01 097 037 , -6 , 8 0 1 35E- 05 
DATA  0.  1 10104377, 0.01 0962963,-6 . 734  0  IE- 05 
DATA  0.097649832, 0. 01 04 1 851 9, -6 . 83502E-05 
DATA  0 , 070772166,7 , 27284E- 03 , -4 , 5 0 056E- 05 
DATA  0.055437093,  6 . 553 09E- 03 , -4 . 0 1 796E- 05 
DATA  0,944814815,-4.85185£-03,3.7037E-05 
DATA  0.894803591 , -4 . 8395 1 E- 03 , 3 . 59 1 47E- 05 
DATA  0 , 854792368 , -4 . 827 1 6E- 03 , 3 . 47924E- 05 
DATA  0.816026936,  -6 . 07407E-03, 4 . 71 38E-05 
DATA  0.786026936,-6. 07407E-03,  4.7138E-05 
DATA  0 ,726015713, -6. 06 1 73E-03, 4 . 601 57E- 05 
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6010  REM  UNIT  <  PER  GUN)  SOURCE  STRENGTHS. 

6020  DATA  18.7,1737.3,77.1,7076.2 

6030  REM  UP  VOLUME  SOURCE  SIGMAS  < U< 2 , 2 > > . 

6040  DATA  5. 4,7. 9, 1.8, 2. 6 

6050  REM  STABILITY  CONSTANTS  FOR  UP  SMOKE. 

6060  DATA  0.016,  0 . 016 , 0 . 01 6, 0 . 01 6, 0 . 01 6, U . 01 6 
6070  DATA  “VISIBLE" 

6080  DATA  “NEAR  IR" 

6090  DATA  “MID  IR" 

6100  DATA  “FAR  IR* 

6110  END 


« 


9 
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3 LIST  10,4200 


10  REM  KWIK  SMOKE  ALGORITHM  FEB 
. , 1982,  PROGRAMMER  SUE  HANSE 
N 

20  REM  KWIK  METEOROLOGICAL  INPU 
TS  AND  CALCULATIONS. 

30  D*  =  " " :  REM  CONTROL  D 
40  DIM  C(4»2>iT(4*4)»V(2)»W(6)»Y 
(4»2),Z(4»2),S(6»3),A(6)»Q(2 
) ,H5<2,2) ,D5(6,3),U(2,2> ,R5( 

4.2) , I(4,2),J(4,2), PC (4,2) 

50  DIM  E(4,2) ,F(4,2) ,05(4,2) ,Q9( 

4.2) ,L(4,2),B(4),G(4),H(4),R 
<4),D<2), X  <4 ) , P<  7, 9 ) 

60  PI  =  3.1415927 

63  DEF  FN  A( A)  *  EXP  (  -  S  *  A 

/  2) 

64  DEF  FN  B(B)  *  EXP  (  -  (B  * 

B)  ) 

65  DEF  FN  C<C)  =  EXP  (C  *  S  * 

LOG  ( . 1  /  H( I ) ) ) 

66  DEF  FN  D(D)  =  EXP  <  -  D  *  S 

/  4.  1 ) 

70  PRINT  D*;"PR#  4" 

120  INPUT  "MET  SITE  ID  "!l* 

130  INPUT  "LATITUDE  OF  MET  SITE 
IN  DEG  " ! LO 

140  INPUT  "DIR.  FROM  EQUATOR  (N= 
1?<S=-1 )  "  ;  HS 

150  LO  *  LO  *  HS 

160  INPUT  "LONGITUDE  OF  MET  SITE 
IN  DEG  "!L1 

170  INPUT  "DIRECTION  FROM  GREENW 
ICH  <W=1&E=-1)  "?  JS 

180  LI  =  LI  *  JS 

190  INPUT  "ALTITUDE  OF  MET  SITE 
-  KILOMETERS  "5Z0 
200  INPUT  "JULIAN  DATE  OF  MET  OB 
SERVATION  " 5  JO 

210  INPUT  "ZULU  TIME  OF  MET  OBSE 
RVATION-HR  "  ,*  HO 
220  INPUT  "CEILING  -  FEET  "? 

CO 

225  CO  -  CO  *  .  3048 
230  INPUT  "CLOUD  COVER-PERCENT 
"?C1 

240  INPUT  "VISIBILITY-MILES 
"?  VO 

245  VO  =  VO  *  1.61 
250  INPUT  "PRECIPITATIGN< 1=YES&0 
=*N0)  ";P 

260  INPUT  "TEMPERATURE-BEG  F 
"  5  TO 

265  TO  *  5  /  9  *  (TO  -  32) 


270 

INPUT 

!T1 

"DEW 

POINT-DEG  F 

275 

Tl  =5 

/  9  * 

(Tl  -  32) 

230 

INPUT 
"  ?  DO 

"WIND 

DIRECT I ON-DEG 

290 

INPUT 
"  ,*  SO 

"WIND 

SPEED-KNOTS 
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300  INPUT  "AVE  ROUGHNESS  ELEMENT 
-CM  " ;  Y 

310  INPUT  "SLANT  RANGE  TO  TARGET 
-KM  " ; H3 

320  INPUT  "ANGLE  OF  SIGHT  TO  TAR 
GET-DEG  " ; S 

330  INPUT  "DIRECTION  OF  LINE  OF 
SIGHT-DEG  " ; A9 

340  INPUT  "SCREEN  LENGTH-METERS 
"  5  XO 

350  INPUT  "DURATION-MINUTES 
"  ?  T2 

355  TEXT 

356  PRINT  :  PRINT  TAB(  10) "MUNI 
TION  EXPENDITURES" 

357  PRINT  TAB<  ID" FOR  HC  AND  W 
P  SMOKE":  PRINT 

360  PRINT  "ID"  SPC<  27)"=  "I* 

370  PRINT  "LATITUDE"  SPC<  9)"-DE 
G"  SPC(  8)"=  "LO 

380  PRINT  "LONGITUDE"  SPC<  8>"-D 
EG"  SPC(  8) "=  “LI 
390  PRINT  "ALTITUDE"  SPC(  9)"-  K 
M"  SPC<  8) "=  "ZO 

400  PRINT  "JULIAN  DATE"  SPC(  6)'* 
-DAY"  SPC<  &)"=  "JO 
410  PRINT  "ZULU  TIME"  SPC(  8)"-H 
OURS"  SPC(  6 ) "=  "HO 
420  PRINT  "CEILING"  SPC(  10) "-ME 
TERS  =  "CO 

430  PRINT  "CLOUD  COVER"  SPC<  6)" 
-PERCENT  =  "Cl 
438  XD  =  INT  (VO  *  10  +  .5)  /  10 

440  PRINT  "VISIBILITY"  SPC(  7)"- 
K I LOME TERS  =  "XD 

450  PRINT  "PRECIPITATION"  SPC<  1 
6 ) " =  "P 

458  XD  =  INT  (TO  *  10  +  .5)  /  10 

460  PRINT  "TEMPERATURE"  SPC<  6)" 
-DEG  C"  SPC<  6 > " =  "XD 
468  XD  =  INT  <T1  *  10  +  .5)  /  10 

470  PRINT  "DEW  POINT"  SPC<  8>"-D 
EG  C"  SPC(  6 ) "=  "XD 
480  PRINT  "WIND  DIRECTION"  SPC( 

3 ) " —DEG"  SPC (  8 ) " =  "DO 
490  PRINT  "WIND  SPEED"  SPC<  7)"- 
KNOTS"  SPC(  6)"=  “SO 

500  PRINT  "AVE  ROUGHNESS  ELEMENT 

-CM  =  " Y 

501  PRINT  D*; "PR#  0" 

502  INPUT  "ARE  ABOVE  ENTRIES  COR 
RECT  ( 1 =YES&0=N0 )  " ?  X  D 

503  IF  XD  =  0  THEN  70 

504  PRINT  D*; " PR#  4 " 

510  FOR  J  =  1  TO  9 
520  FOR  I  =  1  TO  7 
530  READ  P(I,J) 

540  NEXT  I 
550  NEXT  J 

560  REM  MET  CALCULATIONS 
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I 


« 


% 


i 


\ 


I 


« 


I 


570  IF  Cl  <  >  100  THEN  600 

580  IF  CO  >  2133.6042  THEN  600 
590  II  =  0:12  =  O:  GOTO  1050 
600  REM  CALCULATE  ANGULAR  FRACI 
ON  OF  A  YEAR  FOR  A  GIVEN  JUL 
IAN  DATE  (AO) 

610  R9  *  PI  /  180: D9  =  180  /  PI:L 
0  =  LO  *  R9 

620  AO  =  (JO  -  1)  *  360  /  365.242 

630  REM  CALCULATE  SOLAR  DECLIN 
AT I ON  ANGLE  (A4) 

640  A1  =  AO  *  R9: A2  =  279.9348  + 

AO 

650  A2  =  A2  +  1.914827  *  SIN  <A1 
)  -  .079525  *  COS  <A1)  +  .0 
19938  *  SIN  (2  *  A1 >  -  .001 
62  *  COS  (2  *  A1 ) 

660  A2  =  A2  *  R9*.A3  =  23.4438  *  R 
9: A4  =  SIN  (A3)  *  SIN  (A2) 

670  A4  «  ATN  (A4  /  SQR  (1  -  A4  * 
A4>  ) 

680  REM  CALCULATE  THE  TIME  OF  M 
ERIDAN  PASSAGE-TRUE  SOLAR  NO 
ON  ( A5) 

690  A5  *  12  +  .12357  *  SIN  (Al)  - 
.004289  *  COS  (Al) 

700  A5  =  A5  +  .153809  *  SIN  (2  * 
Al)  +  .060783  *  COS  (2  *  Al 
) 

710  REM  CALCULATE  SOLAR  ANGLE  ( 
A6 ) 

720  A6  =  (15*  ( HO  -  A5 )  -LI)  * 

R9 

730  REM  CALCULATE  SOLAR  ALTITUD 
E  ( A7 ) 

740  A7  =  SIN  (LO)  *  SIN  (A4)  + 
COS  (LO)  *  COS  <A6)  *  COS 
( A4 ) 

750  A7  *  (  ATN  (A 7  /  SQR  ( 1  -  A7 
*  A7 ) ) )  *  D9 

760  REM  CALCULATE  INSOLATION  CL 
ASS  NUMBER 

770  12  *  0 

780  IF  A7  <  =  60  THEN  800 

790  12  =  4:  GOTO  860 

800  IF  A7  <  =  35  THEN  820 

810  12  =  3:  GOTO  860 

820  IF  A7  <  =15  THEN  840 

830  12  =  2:  GOTO  860 

840  IF  A7  <  =  0  THEN  1010 

850  12  =  1 

860  REM  CALCULATE  NET  RADIATION 
INDEX  FOR  DAYTIME. 

870  13  =  0 

880  IF  Cl  >  50  THEN  900 
890  13  =  12:  GOTO  960 
900  IF  CO  >  =  2133.6042  THEN  92 

0 

9 10  13  =  12  -  2:  GOTO  960 
920  IF  CO  >  =  4876.8096  THEN  94 

0 


« 
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930  13  -  12  -  1:  GOTO  960 
940  IF  Cl  <  >  100  THEN  960 

950  13  =12-1 
960  IF  13  <  >0  THEN  980 

970  13  =  12 

980  IF  13  >  1  THEN  1000 
990  13  =  1 

1000  11  =  13:  GOTO  1050 
1010  REM  CALCULATE  NET  RAD I AT 10 
N  INDEX  FOR  NIGHTTIME 
1020  IF  Cl  >  40  THEN  1040 
1030  II  =  -  2:  GOTO  1050 

1040  II  =  -  1 

1050  REM  CALCULATE  PASQUILL  ST A 
BILITY  CATEGORY 

1060  14  =  0:15  =  0:  IF  II  <  >4  THEN 

1080 

1070  14  =  1 

1080  IF  II  <  >  3  THEN  1100 

1090  14  =  2 

1100  IF  II  <  >  2  THEN  1120 

1110  14  =  3 

1120  IF  II  <  >  1  THEN  1140 

1130  14  =  4 

1140  IF  II  <  >  0  THEN  1160 

1150  14  =  5 

1160  IF  II  <  >  -  1  THEN  1180 

1170  14  =  6 

1180  IF  II  <  >  -  2  THEN  1200 

1190  14  =  7 

1200  IF  SO  >  2  THEN  1220 

1210  15  =  l:  GOTO  1450 

1220  IF  SO  >  =  4  THEN  1240 

1230  15  =  2:  GOTO  1450 

1240  IF  SO  >  =  6  THEN  1260 

1250  15  =  3:  GOTO  1450 

1260  IF  SO  >  =  7  THEN  1280 

1270  15  =  4:  GOTO  1450 

1280  IF  SO  >  =8  THEN  1300 

1290  15  =  5:  GOTO  1450 

1300  IF  SO  >  =  10  THEN  1400 

1310  15  =  6:  GOTO  1450 

1400  IF  SO  >  =11  THEN  1420 

1410  15  =  7:  GOTO  1450 

1420  IF  SO  >  =  12  THEN  1440 

1430  15  =  8:  GOTO  1450 

1440  15  =  9 

1 450  PO  =  P ( 1 4 , 1 5 ) 

1460  REM  CALCULATE  RELATIVE  HUM 
IDITY 

1470  IF  TO  >  O  THEN  1490 
1480  AO  =  9.5:80  =  265.5:  GOTO  15 
00 

1490  AO  =  7.5:80  =  237.3 
1500  IF  T1  >  0  THEN  1610 
1600  A1  =  9.5:81  =  265.5:  GOTO  16 
15 

1610  A1  =  7.5:81  =  237.3 

1615  EO  =  6.11  *  10  (AO  *  TO  / 

(80  +  TO)):  El  =  6.11  *  10 
(A1  *  T1  /  (81  +  T 1 ) ) : RO  =  E 
1  /  EO  *  100 

1620  PRINT  "PASQUILL  STABILITY  C  ^ 29 


MID*  ( "ABCDEF" 


I 

J 

S 

► 

1 


n 


a 


4 


I 

► 


A 


% 


I 


ATEGORY  = 

PC,  1  ) 

1628  XD  =  INT  (RO  *  10  +  -5)  /  1 
0 

1630  PRINT  "RELATIVE  HUMIDITY"  SPC< 
12)"=  "XD 

1640  PRINT  :  PRINT 
1A.43  REM  KWIK  ATMOSPHERES  OPTIC 
S  AND  SMOKE  CONCENTRATION  CA 
LCULATIONS 

1647  FOR  I  a*  1  TO  A:  READ  B(I)>G 
( I ) »  X  < I ) s  NEXT 

1650  VI  =  LOO  (VO) ' V2  =  VI  *  VI : 

V3  =  V2  *  VI 

1660  H ( 1 )  =  EXP  (1.5551  -  .9811  * 

VI  -  .0197  *  V2  +  .0041  *  V3 
) J H(2)  =  EXP  (1.50381511  - 
.992319519  *  VI  -  .015972801 

*  V2  +  . 00368583  *  V3  > 

1670  H(3)  =  EXP  (1.2394  -  1.0436 

*  V 1  +  . 0099  *  V2  -  .0016  * 

V3 ) : H ( 4 )  =  EXP  (1.5176  -  1. 

7147  *  VI  +  .0001  *  V2  +  .04 
28  *  V3) 

1680  R  < 1 )  =  EXP  (1.3306  -  .8825  * 

VI  -  .0753  *  V2  +  .0129  *  V3 
) : R( 2)  =  EXP  (1.48195171  - 
. 92259583  *  V 1  -  .  06550942  * 

V2  +  .01368042  *  V3) 

1690  R ( 3 )  =  EXP  (1.5556  -  .9013  * 

VI  -  .0773  *  V2  +  .0173  *  V3 
) : R( 4 )  =  EXP  (1.5928  -  .939 
6  *  VI  -  .0627  *  V2  +  .0168  * 

V3) 

1700  HO  =  Os  IF  S  >  =  0  THEN  172 

0 

1710  S  =  -  S 

1720  S  =  S  *  (PI  /  180) :S  =  SIN 
( S ) : H4  =  0 

1730  IF  S  =  0  THEN  1750 
1740  H4  =  1  /  S 

1750  REM  CALCULATE  PRECI PI  TABLE 
WATER 

1760  W  =  .4477  +  .0328  *  T1  +  .00 
02  *  T1  *  T1  +  .0000184  *  T1 
*  T1  *  T1 

1770  REM  CALCULATE  AMOUNT  OF  WA 
TER  IN  PATH 

1790  LO  =  H3 1 L 1  =  H0*L2  *  L0.'L3  = 

.5  *  < L 1  +  L2 ) ’ L4  =  L2  -  Ll: 

L5  =  .2886751  *  L4 
1800  WO  =  . 5  *  L4  *  <  FN  A(L3  +  L 
5)  +  FN  A(L3  -  L5>> 

1805  W1  =  W  *  WO 

1810  REM  CALCULATE  TRANSMITTANC 
ES  FOR  VISUAL* NEAR 7  MID  AND  F 
AR  IR  WAVELENGTHS 
1820  FOR  I  =  1  TO  4 
1830  REM  CALCULATE  TRANSMITTANC 
ES  OWING  TO  ABSORPTION  BY  WA 
TER  VAPOR 

1840  IF  I  <  >4  THEN  1870 

1850  T ( I  *  1 )  =  EXP  (  -  .0681  *  W1  130 


):  GOTO  1890 

1870  LO  =  B ( I >  *  SQR  (W1  *  PI )  / 

2: LI  =  HO s  L2  =  L0:L3  =  .5  * 

<  LI  +  L2  5 :  L4  =  L2  -  LUL5  = 
.2886751  *  L4 

1880  M2  =  .5  *  L4  *  (  FN  B(L3  +  L 
5)  +  FN  B(L3  -  L5))sT(I,l)  = 

2  /  SQR  <PI)  *  M2sT(I. 1)  = 

1  -  T( 1 , 1 ) 

1890  REM  CALCULATE  TRANSMITTANC 
E  OWING  TO  ATTENUATION  BY  HA 
ZE  AND  FOG 

1900  IF  P  =  0  THEN  1920 
1910  T( I >  2)  =  1*  GOTO  2010 
1920  IF  VO  >  =  G(I)  THEN  1990 

1940  LO  =  H4JL1  =  H0:L2  =  L0:L3  = 

.5  *  (LI  +  L2):L4  =  L2  -  Lis 
L5  =  .288675  *  L4 
1950  T3  =  .5  *  L4  *  (  FN  C(L3 

+  L5>  +  FN  C(L3  -  L5)> 

1955  T4  =  EXP  (  -  H(I)  *  T3) 

1970  LI  =  H4:L2  =  H3:L3  =  .5  *  (L 
1  +  L2)  ‘  L4  =  L2  -  LUL5  =  .2 
886751  *  L4 

1980  T5  —  .5  *  L4  *  (  FN  D(L3  +  L 

5)  +  FN  D(L3  -  L5))sT6  =  EXP 
(  -  .128  *  T5  >  s  T  < 1 . 2 )  =  T4  * 

T6:  GOTO  2010 

1990  LO  =  H3:L1  =  HOs  L2  =  L0:L3  = 

.5  *  (LI  +  L2 ) s  L4  =  L2  -  Li: 

L5  =  .2886741  *  L4 
2000  T7  =  .5  *  L4  *  <  FN  D(L3  +  L 
5)  +  FN  D(L3  -  L5 ) ) : T( I »  2)  = 

EXP  (  -  H ( I )  *  T7 ) 

2010  REM  CALCULATE  TRANSMITTANC 
E  OWING  TO  ATTENUATION  BY  PR 
EC I PAT I ON 

2020  IF  P  =  1  THEN  2040 
2030  T < 1 , 3 )  =  is  GOTO  2060 
2040  IF  VO  >  20  THEN  2030 
2050  T ( I >  3)  =  EXP  (  -  H3  *  R(I)> 

2060  REM  CALCULATE  TRANSMITTANC 
E  OWING  TO  ATTENUATION  BY  SM 
OKE 

2070  T  <  1 . 4 )  =  X(I)  /  ( T ( I » 1 >  *  T ( 

1,2)  *  T ( I , 3 ) > 

2080  IF  T  <  I »  4  >  <  =1  THEN  2100 

2090  T ( I , 4 )  =  1 

2100  REM  CALCULATE  LINE  OF  SIGH 
T  INTEGRATED  CONCENTRATION 
2110  FOR  K  =  1  TO  2:  READ  D(K>:  NEXT 

2120  IF  T ( I »  4 )  =  I  >1  THEN  2140 

2130  FOR  J  =  1  TO  2: C < I , J )  =  0:  NEXT 

2135  GOTO  2190 
2140  FOR  K  =  1  TO  2 
2150  IF  BOO  <  >  0  THEN  2170 

2160  C(I,K)  =  Os  GOTO  2180 
2170  C ( I  * K )  =  LOG  ( T ( 1 , 4 ) )  /  - 

D(K) 

2130  NEXT  K 
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2190  NEXT  I 

2200  REM  ATMOSPHERIC  DIFFUSION 
CALCULATIONS. 


2210 

FOR  L 

=  1 

TO  6:  READ  A(L>:  NEXT 

2220 

FOR  I 

=  1 

TO  6 

2230 

FOR  J 
:  NEXT 

=  1 

TO  3*  READ  S(I.J) 

2240 

NEXT 

I 

2250 

FOR  I 

=  1 

TO  6 

2260 

FOR  J 

=  1 

TO  3:  READ  05 ( I , J 

):  NEXT 

2270 

NEXT 

I 

2280 

READ 

H5(  1 

,  1 >,H5(1,2),H5(2,  1 

) ,H5(2 

,2) 

2290 

READ 

(2.2) 

U(l, 

1  ).U(2. 1 ).U( 1.2).U 

2300 

A1  = 

-  1. 

24  +  1.19  *  (  LOG 

(Y)  / 

LOG 

(10))sz  =  10  A  A1 

:  A2  =  ABS  (A9  -  DO)  *  (PI  / 

180) : R2  =  SQR  (13.69  /  (13. 

68  *  SIN  (A2)  *  SIN  (A2)  + 

COS  ( A2 )  *  COS  <  A2  > ) ) 

2310  Y 1  =  1.0952155  +  .0290689  * 

RO  -  .00049575  *  RO  *  RO  +  . 
00000482  *  RO  *  RO  *  R0*»Y2  = 
3.364059144  +  .060502571  *  R 
0  -  .00115301  *  RO  *  RO  +  .0 
000133942  *  RO  *  RO  *  RO 
2320  C2  =  S(P0,1)  +  S(P0,2)  *  Z  + 
S(P0,3>  *  Z  *  Z:  01  =  05 ( PO > 1 
)  +  05 ( PO » 2 )  *  Z  +  05 ( PO  *  3 )  * 

Z  *  Z*D2  »  1  /  01 
2330  IF  SO  <  >  O  THEN  2350 

2340  SO  =  1 
2350  S3  =  .515  *  SO 

2360  FOR  N  =  1  TO  6*  READ  W<N>:  NEXT 

2370  FOR  I  =  1  TO  4 

2380  FOR  K  =  1  TO  2:  REM  CALCUL 

ATE  CROSSWWIND  INTEGRATED  CO 
NCENTRAT I ON  FOR  WP  SMOKE 
2390  IF  (I  <  3)  AND  (PO  >  4)  THEN 
2410 

2400  SI  =  U <  K .  1  )  +  .74  *  A(PO)  * 

100  A  . 9 s  S2  =  U ( K  *  2 )  +  .667  * 

C2  *  100  D1SVMK)  =  W(PO)  * 

Y2  *  H5 ( K .  2 )  /  (PI  *  SI  *  S2 

) 

2410  REM  MUNITION  EXPENDITURES 
(HC  SMOKE) 

2420  0(1)  =  .4:0(2)  =  .4:  REM  MU 
N I T I ON  EFF I C I ENC I E  S 
2430  REM  SUSTAINING  SHELL  SPACI 
NO  FOR  HC  SMOKE 
2440  IF  I  >  2  THEN  2500 
2450  IF  C(I.l)  <  >0  THEN  2470 

2460  Y  ( I ,  K )  =  0:  GOTO  2500 
2470  Y(I,K>  =  1  /  R2  *  (.731  *  Q( 

K)  *  Y1  *  H5(K> 1 )  /  (C2  *  S3 
*  C  ( 1 .  1 )  )  )  02 

2480  IF  Y< I »  K )  <  XO  THEN  2500 
2490  Y( I  *  K )  =  XO  132 


2500  NEXT  K 

2510  NEXT  I 

2520  FOR  1  =  1  TO  4 

2530  FOR  K  =  1  TO  2 

2540  IF  I  >2  THEN  2740 
2550  I ( I j  K  >  =  S3  *  45:  REM  CALCU 
LATE  INITIAL  SHELL  SPACING  F 
OR  HC  SMOKE 

2560  IF  Y<  I » K >  >  0  THEN  2580 

2570  E ( I , K )  =  1 : F ( I , K )  =  1 :  GOTO 
2670 

2580  REM  CALCULATE  INITIAL  VOLL 
EY  FOR  HC  SMOKE 

2590  IF  I < I »  K )  >  Y ( I , K )  THEN  261 
0 

2600  GOTO  2615 
2610  I  ( I ,  K )  =  Y(I,K) 

2615  E(ItK)  =  XO  /  I ( I >  K ) : Q5  =  INT 
( E ( I , K ) > : Q6  =  E  <  I ,  K  >  -  Q5 
2620  IF  06  <  .5  THEN  2640 
2630  E  < I >  K )  =  05  +  1 
2640  F ( I , K )  =  XO  /  Y ( I »  K ) : 05  =  INT 
( F  ( I ,  K ) ) : 06  =  F ( I >  K )  -  05:  REM 
NUMBER  OF  GUNS  FOR  SUSTAINI 
NG  VOLLEYS 

2650  IF  06  <  .5  THEN  2670 
2660  F  < I , K )  =  05  +  1 
2670  R1  =  .5:  REM  RATE  OF  FIRE  F 
OR  HC  SMOKE 

2680  IF  C(I.l)  <  >0  THEN  2700 

2690  R1  =  0 

2700  REM  CALCULATE  TOTAL  NUMBER 
OF  ROUNDS  REQUIRED  (HC  3M0K 
E) 

2710  •  J  ( I ,  K  >  =  E < I »  K >  +  <R1  *  T2  - 
1)  *  F ( I »  K ) : 05  =  INT  (J(I,K 
) ) : 06  =  J  ( I  >  K )  -  05 
2720  IF  06  <  .5  THEN  2740 
2730  J(I,K)  =  05  +  1 
2740  IF  (I  <  3)  AND  (PO  >  4)  THEN 
3070 

2750  REM  SHELL  SPACING  <L< )  &Z ( 

)  ?<  VOLLEYS  <0  <  )  *<Q  (  )  >-WP  SM 
OKE 

2760  IF  C(I,2)  <  >  0  THEN  2780 

2770  Z ( I , K  >  =  0 : G5 ( I >  K )  =  0:Q9(I, 

K)  =  0:  GOTO  2860 
2780  IF  I  >  2  THEN  2820 
2790  L  < I » K )  =  V ( K )  /  C(I,2)  *  100 
:  IF  L ( I >  K )  <  XO  THEN  2810 
2800  L< I, K)  =  XO: 

2810  Z(ItK)  =  L ( I j K ) : 05 ( I . K )  =  XO 
/  Z ( I , K ) :  GOTO  2825 
2820  G5 ( I  *  K )  =  .6  *  C  < 1 , 2 )  /  V  <  K ) 

2825  05  =  INT  ( G5 ( I , K >  > : 06  =  G5 ( 
I,K>  -  05 

2826  IF  06  <  .5  THEN  2840 

2830  G5(I,K)  =  05  +  is  GOTO  2850 
2840  05 ( I  *  K  >  =  05 
2850  09(1, K )  =  G5 ( I , K ) 

2860  REM  RATE  OF  FIRE  FOR  WP  SM 
OKE  133 


2870  IF  C < 1 7  2 >  <  >  0  THEN  2890 

2880  R5  < I >  K  >  =  0:  GOTO  2980 
2890  IF  I  >  2  THEM  2910 
2900  R5 ( I » K )  =  <  Z  <  I ,  K  >  +  60 >  /  88 
:  GOTO  2915 

2910  R5<I,K>  =  120  /  S3 

2915  R5(I,K)  =  R5(I,K>  /  20: R5  = 

INT  < R5 ( I » K ) > : R6  =  R5(I,K>  - 
R5 

2920  IF  R6  <  .5  THEN  2940 
2930  R5  =  R5  +  1 
2940  IF  R5  <  >  O  THEN  2960 

2950  R5  =  1 

2960  R5 < I >  K )  =  R5  *  20  /  60:R5(I, 

K )  =  1  /  R5  < I , K ) 

2970  IF  R5 ( I i K )  <  1  THEN  R5(I,K) 

=  1 

2980  REM  CALCULATE  TOTAL  NUMBER 
OF  ROUNDS  REQUIRED  (WP  SMOK 
E) 

2990  IF  C( I , 2)  <  >  0  THEN  3010 

3000  P5< I *K>  =  0:  GOTO  3310 
3010  IF  I  >  2  THEN  3030 
3020  P5< I » K)  =  (72  *  R5(I,K>  -  1) 

*  Q9 <  I ,  K  >  05(1, K):  GOTO  3 

040 

3030  P5 < I » K )  =  Q9 ( I » K )  *  ( XO  /  60 
+  1 )  *  (T2  *  R5< I > K )  -  1 ) 
3040  Q5  =  INT  (P5(I,K)):Q6  =  P5< 
I,K>  -  Q5 

3050  IF  Q6  <  .5  THEN  3300 
3060  P5 ( I , K )  =  Q5  +  1 :  GOTO  3300 
3070  REM  CALCULATIONS  FOR  WP  SM 
OKE  E&F  STABILITY  CATEGORIES 
(STABLE  FLOW) 

3080  REM  INITIAL  SHELL  SPACING 


3090 

IF  (I 

= 

1 ) 

AND 

( K  =  1  ) 

THEN 

3100 

3120 

IF  <1 

■C 

3) 

AND 

<K  =  2) 

THEN 

31 10 

3120 

IF  (I 

= 

2) 

AND 

(K  —  1 ) 

THEN 

3120 

3 1 30 

L  ( I ,  K ) 

— 

100:  GOTO  3140 

3 1 30 
3140 

L ( I,K> 
REM 

sus 

50 

TAINING 

SHELL 

SPACI 

3150 

NG 

IF  (I 

_ 

1  ) 

AND 

<  K  =  1  ) 

THEN 

3160 

3 1 90 

IF  (I 

2  > 

AND 

(K  =  2) 

THEN 

3170 

3 1 90 

IF  ( I 

J— 

1  ) 

AND 

(K  =  2  > 

THEN 

3180 

3200 

IF  (I 

2) 

AND 

(  k:  =  l  > 

THEN 

3210 

3190  Z ( I , K )  =  100:  GOTO  3220 
3200  Z ( I , K )  =  200:  GOTO  3220 
3210  Z ( I , K )  =  50 

3220  G5 ( I »  K )  =  XO  /  L  < I ?  K )  +  l:  REM 
INITIAL  VOLLEY 

3230  09  <1,10  =  XO  /  Z(I,K)  +  l:  REM 
SUSTAINING  VOLLEY 
3240  REM  RATE  OF  FIRE- 
3250  IF  K  =  1  THEN  3270 
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3260  IF  K  =  2  THEN  3280 
3270  R5 ( 1 7  K )  =  2:  GOTO  3290 
3280  R5  < I , K  >  =  1 

3290  P5 ( I ,  K  >  =  <T2  *  R5  <  I ,  K )  -  1 ) 

*  Q9 ( 1 7  K )  +  G5  <  I , K ) s  REM  T 
OTAL  NO.  OF  ROUNDS^  REQUIRED 
3300  NEXT  K 
3310  NEXT  I 
3320  FOR  I  =  1  TO  4 

3324  PRINT  D*? "PR#  0" 

3325  INPUT  "PRESS  1  AND  RETURN  W 
HEN  READY  FOR  OUTPUT  "?XD 

3326  IF  XD  <  >1  THEN  3325 

3327  PRINT  D*? "PR#  4" 

3330  PRINT  :  PRINT  :  PRINT  s  PRINT 
:  PRINT  :  PRINT  :  PRINT 
3340  READ  A* 

3345  PRINT  TAB (  14) A* 

3350  PRINT  TAB<  25) "METERS  MINU 

TES" 

3355  XO  =  I  NT  (  XO  +  .  5) :  T2  =  I  NT 
( T2  +  .5) 

3360  PRINT  "SCREEN  LENGTH/ DURAT I 
ON!  "XO"  "T2 
3370  IF  I  >2  THEN  3600 
3380  PRINT  TAB<  11)"HC  SMOKE  SC 

REEN":  PRINT  TAB<  11)" 105MM 
HOWITZER" 

3390  PRINT  " VOLLEY  GUNS  RATE 

/  SPACING  ROUNDS" 

3400  E  ( 1 ,  1 )  =  INT  (E( I j 1 )  +  .5): 

1(1,1)  =  INT  <1(1, 1)  +  .5) 
.8410  PRINT  "INITIAL"  TAB<  13)E(  I 
,1)  TAB<  25)1(1,1) 

3420  F(li 1 )  =  INT  (F ( I , 1 >  +  .5): 

R 1  =  INT  <R1  *  10  +  .5)  /  1 
0  s  Y  < 1 , 1 )  =  INT  ( Y ( 1 , 1 )  +  .5 
)sj(l,l)  =  INT  <J(I,1>  +  .5 
) 

3430  PRINT  "SUSTAINING"  TAB<  13) 

F ( 1 , 1 )  TAB (  1 8 ) R 1  TAB  <  25) Y< 
1,1)  TAB (  32 ) J ( 1 , 1  ) 

3440  PRINT  "VOLLEY  GUNS  RATE 

/  SPACING  ROUNDS"!  PRINT  TAB ( 


17) "MIN 

METERS" 

3450 

E  (  1 , 2  ) 

=  INT 

( E  <  1 , 2 ) 

+  .5): 

1(1,2) 

=  INT 

(1(1,2) 

+  .5) 

3460 

PRINT 

"INITIAL"  TAB< 

1 3 )  E  (  I 

, 2 )  TAB  <  25)1(1,2) 

3470 

F  <  1 , 2 ) 

=  INT 

(F ( I , 2) 

+  .5): 

Y< I ,2) 

=  INT 

<Y< 1,2) 

+  .5): 

J  <  1 , 2 ) 

=  INT 

( J  ( 1 , 2 ) 

+  .5) 

3480 

PRINT 

"SUSTAINING"  T A  B (  13) 

F  (  1 , 2 ) 

TAB (  1 8 ) R 1  TAB ( 

25 )  Y  ( 

1,2)  TAB (  32 ) J ( I , 2 ) 

3490  PRINT  TAB<  11)"WP  SMOKE  SC 
REEN":  PRINT  TAB<  11)"105MM 
HOWITZER":  PRINT  "VOLLEY 
GUNS  RATE/  SPACING  ROUNDS" 
:  PRINT  TAB(  17)"MIN  METE 
RS" 

3500  G5 ( I , 1 )  =  INT  ( G5 ( I , 1 )  +  .5 
):L(I,1>  =  INT  <  L  < 1 , 1 >  +  .5 
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) 

3510  PRINT  "INITIAL"  TAB (  13)GS( 

1.1)  T  AB (  25 ) L ( 1 , 1 > 

3520  09<I,1)=  I NT  ( G9 ( I . 1 )  +  .5 
) : R5 (1,1)  =  INT  ( R5 (1,1)  * 

10  +  .5)  /  1 0 : Z ( I , 1 >  =  INT 
(Z(I,  1)  .  5  )  s  PR  (  1 ,  1  )  =  INT 

(P5( 1,1)  +  .5) 

3530  PRINT  "SUSTAINING"  TAB (  13) 
09(1,1)  TAB(  1 8 ) R5 (1,1)  TAB ( 

25 ) Z ( I , 1 )  TAB (  32 ) P5 ( I , 1 ) 

3540  PRINT  "VOLLEY  GUNS  RATE 

/  SPACING  ROUNDS":  PRINT  TAB( 
17) "MIN  METERS" 

3550  G5( 1,2)  =  INT  (G5( I , 2)  +  .5 
) : L ( I , 2 )  =  INT  (L( I, 2)  +  .5 
) 

3560  PRINT  "INITIAL"  TAB(  13>G5( 

1.2)  TAB(  25 ) L < 1 , 2 ) 

3570  09(1,2)  =  INT  (09(1,2)  +  .5 
) : R5 (1,2)  =  INT  (R5(I,2>  * 

10  +  .5)  /  10: Z  < 1 , 2)  =  INT 
<  Z ( 1 , 2 )  +  . 5) :P5( 1,2)  =  INT 
( P5 (1,2)  +  .5) 

3530  PRINT  "SUSTAINING"  TAB (  13) 
09(1,2)  TAB(  1 8 ) R5 (1,2)  TAB ( 

25 ) Z ( 1 , 2 )  TAB (  32  >  P5 (1,2) 

3590  IF  I  <  3  THEN  3650 

3600  PRINT  TAB(  11)"WP  SMOKE  SC 
REEN":  PRINT  TAB(  6) "ROUNDS 
/  RATE/  TOTAL":  PRINT 
TAB(  5) "60  METERS  MINUTE 
ROUNDS" 

3610  09(1,1)  =  INT  (09(1,1)  +  .5 
) : R5 (1,1)  =  INT  ( R5 (1,1)  * 

10  +  .5)  /  1 0 : P5 (1,1)  =  INT 

( P5 (1,1)  +  . 5 ) 

3620  PRINT  " 1 05MM : "  TAB (  10)09(1 
,1)  TAB(  13) R5 (1,1)  TAB (  27) 
P5 ( I , 1 > 

3630  09(1,2)  =  INT  (09(1,2)  +  . 5 
) : R5 ( I  -  2 )  =  INT  (R5(I,2>  * 

10  +  .5)  /  10: P5 (1,2)  =  INT 
( P5  (1,2)  +  .  5  ) 


3640 

PRINT 

" 155MM:  “  TAB(  10)09(1 

,2)  TAB<  1 8 ) R5 (1,2)  TAB ( 

27) 

P5 ( I , 2 

) 

3650 

NEXT 

I 

3660 

PRINT 

:  PRINT  :  PRINT  : 

PRINT 

:  PRINT  :  PRINT 

3670 

PRINT 

D*"pR#  0" 

3680 

PRINT 

"FINISHED" 

3690 

REM 

PASOUILL  STABILITY 

CAT 

EGORY 

DATA 

3700 

DATA 

1,  1,2, 3, 4, 6, 6 

3710 

DATA 

1,2, 2, 3, 4, 6, 6 

3720 

DATA 

1,2, 3, 4, 4, 5, 6 

3730 

DATA 

2,2,  3,  4, 4, 5,6 

3740 

DATA 

2,  2,  3, 4,  4,  4,  5 

3750 

DATA 

2, 3, 3, 4, 4, 4,5 

3760 

DATA 

3,  3, 4,  4, 4, 4, 5 

3770 

DATA 

3, 3, 4, 4, 4, 4, 4 

136 

3780 

DATA 

3, 4, 4, 4, 4, 4, 4 

3890  REM  ABSORPTION  COEFFICIENT 
, SCALE  HEIGHT,  ?<  WAVELENGTH  T 
HRESHOLD 

3900  DATA  0 . 1 1 8 , 26 . 7 , 0 . 05 
3910  DATA  0.18,7.5,0.05 
3920  DATA  0.55,5.1, 0 . 05 
3930  DATA  0,5,0.05 
3940  REM  EXTINCTION  COEFICIENTS 
FOR  HC  AND  WP 
3950  DATA  3.3,2.46 
3960  DATA  1.5,2 
3970  DATA  0,0.25 
3980  DATA  0,0.32 
3990  REM  DATA  USED  TO  CALCULATE 
SIGMA  Y  FOR  CONTINUOUS  SOUR 
CE 

4000  DATA  0.4,0. 32,0. 22, O. 1 44, 0 
. 102,0.076 

4010  REM  DATA  USED  TO  CALCULATE 
SIGMA  Z  FOR  CONTINUOUS  SOUR 
CE 

4020  DATA  . 1 390853 ,.01 50 1728,-. 
00010258 

4030  DATA  . 1 2209764 ,.01 09704 , - . 
0000680 1 4 

4040  DATA  . 1 1 0 1 0438 , . 0 1 096296 , - 
. 00006734 

4050  DATA  . 09764983 ,.01041 852 , - 
. 00006835 

4060  DATA  . 070772 17,. 00727284 , - 
. 000045006 

4070  DATA  . 05548709 , . 006553 1 , - . 
000040 1 8 

4080  DATA  .  9448 1 482 , - . 00485 19,. 
000037037 

4090  DATA  . 89480359 ,-. 0048395, . 
0000359 1 5 

4 1 00  DATA  .  85479237 , - . 0048272 , . 
0000347924 

4110  DATA  .  8 1 602694 , - . 006074 1 , . 
000047 1 38 

4 1 20  DATA  .  78602694 , - . 00607407 , 

. 000047 1 38 

4 1 30  DATA  .  7260 1571,-. 00606 17,. 
0000460157 

4140  REM  UNIT  (PER  GUN)  SOURCE 
STRENGTHS 

4 1 50  DATA  18.7,1737.3,77.1, 7076 

»  4L 

4153  REM  WP  VOL.  OURCE  SIGMAS  < 
IJ  (2,2)) 

4157  DATA  5.  4,  7. 9,  1 . 8,  2.  6 
4160  REM  STABILITY  CONSTANTS  FO 
R  WP  SMOKE 

4170  DATA  0.016,0.016,0.016,0.0 
16, 0.016,0. 016 

4 1 80  DATA  " V I S I BLE " , " NE AR  I R " , " 
MID  IR" , "FAR  IR" 

4190  END 


c 
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APPENDIX  M 

KWIK  ALGORITHM  FOR  VOLUME  OF  FIRE  TABLES 
GLOSSARY  OF  MNEMONICS  (HPL/HP  9825A) 


1. 

A 

2. 

B 

3. 

C 

4. 

D 

5. 

E 

6. 

F 

7. 

G; V ( 6) 

8. 

H 

9. 

I 

10. 

J 

11. 

K 

12. 

L 

13. 

M 

14. 

N 

15. 

P 

16. 

0 

17. 

V 

18. 

z 

19. 

r6 

20. 

r20 

21. 

r21 

22. 

A(7) 

23. 

B(2 ,4) 

24. 

C(4 ,2) 

25. 

D(4) 

26. 

E(4) 

27. 

F  ( 4) 

28. 

G(4) 

29. 

H  { 2 ,4) 

30. 

1(6) 

31. 

J  (6) 

32. 

K(6,3) 

33.  M(2) 


Index  for  relative  humidity  indicator 
Index  for  105-  and  155-mm  howitzer 
indicator 

Visibility  -  miles 

Index  for  stability/windspeed  indicator 

Dewpoint  -  degrees  Fahrenheit 

Wind  direction  -  degrees 

Windspeed  -  meters  per  second 

Index  for  stability/windspeed 

algorithms 

Index  for  wavelength  algorithms 

Index  for  smoke  algorithms 

Index  for  gun  (105-  or  155-mm  howitzer) 

algorithms 

Index  for  smoke  screen  length 
algorithms 

Index  for  smoke  screen  duration 
algorithms 

Temperature  -  degrees  Fahrenheit 
Initial  volley  for  HC  smoke 
Relative  humidity  -  percent 
Direction  of  line  of  sight  -  degrees 
Roughness  length  -  centimeters 
Angle  of  sight  to  target  -  degrees 
Slant  range  to  target  -  kilometers 
Wavelength  threshold  level 
HC  smoke  screen  length  -  meters. 

Table  of  transmi ttances  resulting  from 
water  vapor,  haze/fog,  precipitation 
and  smoke  for  visible,  near,  mid,  and 
far  infrared  wavelengths 
Table  of  smoke  concentration  values  for 
HC  and  WP  smoke  for  visible,  near,  mid, 
and  far  infrared  wavelengths 
Absorption  coefficient  error  function 
Scale  height  for  Mie  scattering 
Haze  and  fog  attenuation  coefficients 
Precipitation  attenuation  coefficients 
Table  of  extinction  coefficients  for 
calculating  HC  and  WP  smoke  concentra¬ 
tions  visible,  near,  mid,  and  far 
infrared  wavelengths 
Constant  related  to  stability  category 
for  WP  smoke 

Coefficients  to  compute  sigma  y 
Coefficients  of  roughness  correction 
factor  used  in  calculating  sigma  z  for 
the  various  roughness  lengths 
Yield  factors  for  HC  and  WP 
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34.  N(2) 

35.  0(5) 

36.  P(2,2,6,7,4) 

37.  Q(6,4,2) 


38. 

S(2,2) 

39. 

T(2) 

40. 

0(2,2) 

41. 

V(6);G 

42. 

W(7 ,4) 

43. 

X{5 ,4) 

44. 

Y(6 ,4,2) 

45. 

Z(6,4,2) 

46. 

AS  ( 1 1 2 ) 

47. 

B$(6) 

48. 

C$( 32) 

Precipitation  indicator 

50. 

E$(4) 

51. 

G$(54) 

52. 

HS (81) 

53. 

0$80 

54. 

W$( 112) 

55. 

X$(8Q) 

Crosswind  integrated  concentration  for 
WP  smoke 

WP  smoke  screen  length  -  meters 
Total  number  of  rounds  required  to 
maintain  HC  and  WP  smoke  screen 
Number  of  guns  (105-  and  155-mm 
howitzer)  for  HC  smoke  for  visible  and 
infrared  wavelengths  and  all  stability 
categories 

Unit  (per  gun)  source  strength 

Munition  efficiency  for  105-  and  155-mm 

howitzer,  for  HC  smoke 

WP  volume  source  sigmas  for  105-  and 

155-mm  howitzer 

Windspeed  -  meters  per  second 

HC  smoke  screen  duration  -  minutes 

WP  smoke  screen  duration  -  minutes 

Shell  spacing  for  105-  and  155-mm 

howitzer  for  HC  smoke 

Shell  spacing  for  105-  and  155-mm 

howitzer  for  WP  smoke 

Screen  length  identifier 

105-  and  155-mm  howitzer  indicator 

Wavelength  indicator  9.  D${3) 

HC  or  WP  smoke  indicator 
Stability /windspeed  indicator 
Relative  humidity  indicator 
Smoke  screen  length  indicator 
HC  smoke  screen  duration  indicator 
WP  smoke  screen  duration  indicator 
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APPENDIX  N 


VOLUME  OF  FIRE  TABLES 
(HPL/HP9825A)  ALGORITHM 
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n, 


B 


nr 


u  : 
1 : 
z : 
3: 

4 : 
u: 

u : 
): 
o  : 
j  : 
10 
1  i 


l  z 

2u  0 

40U 

bU0"-A$U,4d) 

I  J» 

bUU 

iOOu 

1  DO  U 

ZG00"-A5 143,112 J 

i  4 

loO 

2oU 

300 

”-u$U,4b) 

l  J 

J.  o 

•i 

ii 

400 

A/  5  u/  o 

u  0 0 "  -U  $  14  3  ,d0  ] 
C/lO  O/l b 

b/  d 
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.4  *i  ll  j  ♦'!  t  2j 
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2o 

2‘d 
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2  *- 
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20  2d 

30 

3d 

20  25  30 

35"- 

a$1  6  5 

,112) 

2  D 
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-A  15 

,1) 

2  d 
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•»  1 2 , 
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*  2  1 

-Vi  15 

,  2  j  -  v.  lb  ,  1]  ♦ 

0(7, lj 

Du 

2  'D-  »»  l  2 , 4  )  ♦ 

«'  l  3  , 

4  1  ♦»> ) 

4 , 3 )  ♦  »*  1 5 

•  3 ) 

♦a  l  b 

,2j-M7,2J 

JL 

30  *i.  ]  4 , 4  ]  - 

l  5 , 

4)  -o  i 

0 , 3  J  ♦>< )  7 

#3) 

Ji 

35-».lu,4J- 

H  I  V, 

4  I 

D  J 

D  —  A  |  1  ,  1  ]  —A 

12,1) —a  l  3 

,1) 

j*« 

L0*a  1 1 , 2  J  * 

a  1 2 , 

2  J  -A i 3 , 2  j -A  )4 

*1) 

♦A  15 

,1) 

J  5 

I'd  —  a(1,d]  —a  ]  2  , 

3 ] -A ] 3 , J ) -A  1 4 

/  ^  J 

♦A  1  5 

,2) 

3o 

20-A [i , 4 1  * 

A  12, 

4  ]  -A  t 

D , 4  J  -A i 4 

#->) 

-A  )5 

•  3 ) 

j  1 

*.  D-A  l  4 , 4  1  —  A  l  J  , 

4  1 

Ju 

D  .4-U  1 1, 1  ] 

;  / .  y 

*u  l  2 , 

1  i  ;  1.  8-u 

11# 

2)  ;2 

.  6  *U l 2 , 2  J 

D  J 

.  0  1  o  -1  1 1  ]  * 

1)2) 

-1  (  3| 

-1 l 4 |  -1  l 

51- 

X  lb  J 

i.it'Ui S  : 

tr.  t  "  ,i’Li,lt'bf<A'].'ljKc,  -  ubG  r'”  ,u 
j  /  3  *  ( iv-3  2  ) 

13-2 

ur.t  "  KbbAii  Vb  nOAlu  L‘L  2  (15,40  or  80)  -  AbRCLM"  ,0 
"vijibiblTi”’: 

2  b*  1 .  o  1*  C 

‘VRbulRi  irti'iOiM  lNUiCM'OU'* : 

"V.iiVL  uiRLCiivJiv  —  ObGRtlLo": 

z./0*t 

"  KubUiiabao  LbwGl'U  -  CfcU'i  IMfl't-RS  " : 
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b  1 :  j.bb+t 

b2:  "abrtn'i  KAinGL  T'O  T  A  KG  L  i  -  KM": 

•j  j ^  *  r  2  U 

34:  "A.nGLl  Jt  iU  XARCLT  -  uCG"  : 

jj:  J ♦ i o 

36:  "  L/i  nLbi  lUh  Gc'  LINE  Or  b  1GHT  ~  DEGREES": 

3  7 :  t.  2  3-*  v 

bO:  "A  i  Moor'll  Eh  1 C  OPTICS  CALCULATIONS"  : 
jb:  in(C)*ru 
obt  ro*rO-*-ri 
ul:  rl*ru*r2 

be:  1.  3S51-.9bll*  r0-.013  7*  rl+. 0041*  r2*F  [  1 1 

o3:  cx^(t 11) ) *r [1 ) 

o4:  1. ju 3S1S11-. 932319  51:>*rU-.015i)72  001*rl+.0  0  36B583*r2--F [2) 
u  o :  cxt-(rt2j)-*f'(2] 

bo:  L.233  4-1.0436*ru  +  .0Q99*rl-.0U16*r2-*'F[31 
o  / :  cxf  ( t  |  3  j  )  ♦c't  3] 

oo:  1. 5176-1.7147* r0  + . 0 uu 1* r 1+ . 04 28* r 2*F [ 4 ) 

O  J  :  b  x  t-  ( t  1 4  J  )  ♦  i  ( 4  ) 

7 o  :  i.  3  30 o-.6U23*rO -.0753*rl+.0129*r2*Cll) 

/l:  ext-  (01  1]  )*Gllj 

It:  1.4ol'j317u7-.  *  225569*  ru  - .  Ub  5  5034 17*  r  1+  .0 136804  22*  r2-*G  [  2] 

/-*:  o  x  :,  ( 0  l  2  |  )  l  2  J 

7  s:  i.  b‘jbu-.4ul3*rU-.u7  73*  rl+.0l73*r2*G[3  j 
"i  c  x  ;.  ( G  t  J  i  )  *G  t  3  J 

/  o  :  i.  3  3  2c.-.  jJyfa*r0-.0o27*rl  +  .0l68*r2-G[4  1 
/  /  :  >  x  t,  (u  t  4  |  )  -*Gl  41 

/  .  :  "  o-AlCu LA  IE  TRAwbrii  1'TAinCE  toR  ViSioLL  -  NEAR,  hit)  AND  FAR  IR 
7  j  :  l  n  (  r  o )  ♦  r  o 

oo  :  i;  ■»  i  o 

oi  :  1 t  l  64  6 ;  i/r  b-»rd 

b  /l.  :  "  C ALo.u LiAXE  ubw  fulrt'f"  : 

oi:  11  .N>b;gtC  "nIuuU" 
os:  i .  j*  i  <j  ;  2b  J .  b*  C 1 

o',:  Ac  " rv  1  7 U 0 " 

n  u  :  "  :\  i  o  o  b  "  : 

b  /  :  7 .  b* to ;  2 37 . J* r  1 

bi  :  "  4v  I  Vo  j"  : 

o  , :  o  .  i  1  *  i  0  “  ( r  0  *  N/  l  r  1+ n  )  )  ♦  r  4 
/o:  D  £  4/i0u-*-r  3 

•j  ; :  !  i  *  uoy  (  r  3)  -log  (i>.  11 )  )  /  i  ro  -ioy  (  r  5)  +  log  (6.11)  )  ♦  E 

-J  :  "JalCuLAiE  FRLCiPi  1'AoLE  WATER": 

>  j  :  .  4  47  7  +  .U  32d *E+1. 2e-  3*E''2+i.b4e-3*E''3  +  rll 

-»s  :  "^ALs-bLATc,  ahOonT  or  wATbR  VAPOR  IN  PATH": 

j  j  :  t  20  ♦r  u  ;U-»r  1 ;  ro-*  r  2  ;  .  3*  (  r  l  +  r2  )  -*r  3 

'Jb  :  r 2-r i*r 4 ; . 2836731* r4»r 3 

37  :  .  \>*r  4*  (  '  Fin  a  '  ( r  3  +  r5)  +  'FwA '  ( r3-t  3)  )  -►  r  i# 

3  b:  i  1 1  *  t  ')■*  c  1 U 

33:  "  1  i./mnj,  OniiiG  T'o  All hn.  WATER  vAPoR.": 

1 uu :  tor  1=1  Lc  2 

101:  it  1 =4; exp( -.Obbl* r 10) *u [ 1 , 1 J ; gtc  "K260o" 

*  14  4  4.) 


10 ^ :  u  U  J  *  y  (rlU*  n)  /  2*rU  ?0  -*rl ;  rU-*>r  2 
lob:  .b« (rl+r2)+ci 
1U+:  r2-rl-*-r4 
10b:  .2bbb751*r4+r5 

10t>:  .  b*r  4M  wo '  (r3  +  rb)  + 'r  wo  '  (r3-r  b) ) -*112 
lu7 :  2/y  n*ri2-*-o  (I,  1] 

106:  l-o l I , 1 J +o l 1 , 1 ] 

103:  "TtvAl+S.  vJV«  1  WG  TU  ATitA.  u'l  hA 2L  AwD  FOG.”: 

110:  "K26U0  "  : 

111:  it  ob=M2LS”  ;  1+iJ  1 1 , 2]  ;  g  tc  ‘^2300" 

112:  it  0>  =  t,ll);ytc  "K2bUG" 

113:  r  6*ro  ;0-*rl;  ru*r2 
114:  . d* ( 1 1+r  2) *r  3 

lib:  r2-rl-*-r4 
11b:  .2ob6751* r 4+r b 

117  :  .  b*  r  4*  ( 'fc  wC  '  (  c3  +  t  b)  +  'twC  '  (  r3-r5  ) ) »r 1 3 

llu:  exo (-F l i j  *  rli) ♦rl4 

113:  r 2d -r o+ro ; r b+r 1 ; r b+ro*r2 

1  xo  :  .  d*  l  r  1+r  2)  *t  3 

i2i:  r2-rl-»r4 

122:  . 2o6b7 51*r 4+r 5 

i^j:  .  b*  r  4*  (  't ad  '  (  r  3+r  b)  +  'c  wu  '  (r  3-r  b) )  >r  lb 

12  +  :  exp (-. 12o* rib) ♦  rlo 

12 b :  l  14*  riu*J  1 1  ,2  1  ;  y  tc  ".^yuO" 

1^0:  “ m  6  o  j  " : 

12  7:  l 2o *10 ; u*r 1 ; r  d*r2 ; . b* ( r 1  +  r 2 ) ♦r  3 

i<.o:  r2-ri-*r4;  .2odb7bl*  t'4-*r  b 

i2>-:  .  b*r  1*  (  'tnu  '  (r  j+ra)  +  Vwu  '(ri-r  b)  )*rl7 

lid:  e  x  t  ( - 1  1 1  |  *  r  1 7  )  *o  [  i  ,  2 1 

131:  "  iv.rtuo.  u.,iwo  i’u  A1  low.  bi  t-KbCit'.": 

i  _}2  :  "K2  d  d0  "  : 

lib:  it  ub="wo"  ;  l*u  1 1  ,  3 1  ;  y  to  "<<3100" 

134:  it  C  >xU  ;  i-*u  1 1 , 3  J  ;  9  to  "K31U0" 

lib:  cxt,(  -  r  20*C  1 1  ] )  -*0  U  ,  31 

13o:  "lixAwb.  owluG  TO  ATi'Lw.  dl  O/iUMi . "  : 

137:  “ A 3 1 0 0  "  : 

1  jo  :  "  v.o  luhbb"  : 

13>:  .  d  b ♦ r  2 1 

i4d:  r21/(oll,lJ*o|l,2J  *  o  1 1 , 3  J  ) +0 1  1 , 4 1 
1  +  1:  it  o  1 1 , 4)  >1 ;  1+1>  U  ,  4  1 
1  +  2:  "Ll.a  ut  olGtii  iiVibCK.  Co.MCLw.": 

1  +  3:  it  oll,4)*U;tor  j  =1  to  2;0+Cll,J];next  J;9to  "K3bu0” 
1+4:  tor  o=l  to  2 

i  +  d:  if  u  1j  ,  1  j  -U;  u+C  1 1 ,  J  J  ;  g  tc  "K33UU" 
l  +  o  :  in ( o  [  1 ,  + 1  )  /-rl  l j  ,  ij  ♦C  l  i  , j  J 
1  +  7:  "t.bidO  "  :  next  j 
l+o:  next  1 

1  +  j:  "tt  ti'.do.  uirF .  Cho.": 

1  bU  :  "  w  3  b u  0  "  : 
ibl :  ucs ( v -t ) ♦ to 

1 >2:  v (13.o3/(13.ob*sin(tb) *sin(ro) +cos ( r 6 ) *  cos ( r 6 ) ) 


1  d  3 :  1  .0ob21b47+.02yUbd94*v_4.  9b  7be-4 *u* y+4 . d  2e-u*  w* w* ( 1 J 
1  b 4 :  b .  364u  by  144  + .  0 oU  bO  2571*  w~l  •  lb 30  le-3*U*  U+1  •  33  94 2e-5*  w* w*  v^i’U  2) 
lbb:  i  c  r  i=l  tc  2 
Ido:  tot  n*l  tc  o 

lb 7:  Rl.i,l]+i\lnf2J*2+KlL,3J*2  2*cy 
ibb:  li  l  a .  1 1  +L  t  r» ,  2]  *  i+el  n  ,  3  J  *  2  2-*rl7 
lbb:  1/cl l*t 11 
lou  :  v  la  j  ♦  *wJ 

lol:  "U.jjbii iau  InTCjK.  CoiaC.  tUR  w R 

low  lor  .-\=1  to  2 

10j:  it  l  <  3 ;  it  u>4;gtc  "K3GUG“ 

1  o  4 :  olft, 1J  +  . 74*0 u J*100 ~.9-*-r 4 

lob:  u  l  a,  2  j +  .  o67*  r  5*  10G~r  17-^r  b 

leu:  l  lrtj*iii2J*S(t\,2]/(7?*C4*Cb)-*tMlAj 

lo/:  "  A  3  b  0  0  "  : 

lob:  ".'lo.,.  lar .  CftL,j.": 

toy:  il  i>2;ytc  "  A  4  0  1 0  " 

1/0:  "  1 1  1 L .  ancLL  JRAC.  t'uR  hC  S.'ils .  "  : 

171:  o*4b-rl2 

172:  "jusl'.  jiilLL  bi.  r’oK  tiC  bliA . "  : 

17  3:  it  Cti,lj»0;gtc  "  i\  3  7  G  G  " 

174:  0  -*Y  la  ,  i  ,  A]  ;  gtc  "K3oUQ" 

1/5:  " h  j  7 o 0 "  : 

I/O:  Let  o=l  tc  7 

1/7:  1  / 1 1  3*  (.731*1  lrxj*i>mi*3lK,lJ/(CU,l]*G*r9)),'cll-XlH*l^<] 
wo:  ll  V  in,  i  ,  tv  ]  >  a  l  o  ]  ;  A  l  L  j  ♦  Y  In#  1 ,  K ) 

* .  i  j :  "  c\  3  d  o  0  "  : 

Loo:  it  1  la,  1 ,  is]  =0;  i+R-***  (a,  i  ,  a]  ;g  tc  ’’  A  4  0  U  0  " 
iul:  il  rl2>l'lti,l,K);/lu,i,Kl-*rl2 

Loi:  "i.ii  ill.  v>ooiY  .  coo  ii o.-iK.": 

in  3  :  /\  l  o  1  /r  !!♦  R 

lo«:  iL  t  tc  ( r)  >0  ;  Hi t ( R)  +  i-*R 

lob:  "ou.'i.  at  oiJb/S  c\jt\  bUbt .  voaYS.  (liC)": 

lbo:  A  l  LJ  /  i  l  a,  1 ,  R  J  *■+  ( il  ,1  ,  r] 

i.o7:  il  1  re  (u  la#  i  #  Al  )  >0;  int  (*  In,  l ,  a  J ) +l*-w  [h.  i.  A] 
lbo:  "h/ut  ot  r'iKO  ruh  no.  dWr . =0 . b " : 

lo9:  "ixluuU”: 

lbo  :  let  .•*=  l  t c  4 

ill:  "loin.  A  Ur. .  ol  Kixoj  .  tuyU.  (liC)"  S 

i  0  2 :  R  +  (  .  5  *  a  |  L ,  Li  J  - 1 )  *  w  l  i* »  1 »  K  J  ♦  R  [  A ,  1 ,  n ,  L,  M  ] 

lbo:  it  1  re  (  f  IR  .1 .11 » 1>»1*  j  )  >0  ;  in  t  (  R  [  A  ,  1 ,  ri,  L>,  J  )+l-*r'(A,l,a,L,i\] 

1j4:  it  R  =  1 ;  i  1  R  (1 ,  1 ,  ii,  L  ,.nj  /  (o*  w  t  L,  :-/J  )  >  3 . 1;  1U0U*R  1 1 , 1 ,  11,  L  ,M) 
lib:  it  A=2;il  R  1 2 , 1 ,  n ,  L  ,ii|  /  (U*  a  1  L,  Kj  )  >  1 , 1 ;  lOUO-^R  [  2 , 1  ,ri  ,  L  ,toj 
lbo:  if  o>b;gtc  "Abo  50  " 

1  J  7  :  "  A  4  0 1 0  "  : 

1j«:  it  i<  3;  it  n>4 ; gtc  '\n420G" 

1  J  J  :  "anooL  JRAC  .  (  l  l  j  )  Si  VOLYa  {  C  1  3  )  ~  v>R  o.vr .  "  : 

200:  It  Cli,2jtU;gtc  "R4G20" 
ml:  J  l  ii,  i ,  R  j  ♦r  13;  g  tc  "K  4060" 

102:  "  r4  t  20"  : 

2ob:  it  i  >2  ;  .  b*e  1 1 , 2  J /.'t  l  a  J  ♦  cl  3;g  tc  "K4G4U" 


204 

20  j 
2d  u 

20  7 

20b 
2  0-J 
210 
211 
212 

21  j 

2h 

21  j 
2  1  o 
21  / 
ilc 

21  i 

z2u 

i  2 1 

i  2  2 
iZ  d 


it  C  1 1 , 2J  =0  ;  gtc.  "K4l0u" 

im  l  m  1  /C  U  ,  2 1  *  1 J  0  *L  l  a  ,  1  ,  Kj 

it  u  l  iif  i  ,K  1  >Otu  J  ;u  [  LJ  *2,  l  u,  1 ,  KJ 

«j|L>|/ilh,i,bj ♦ r 1 i 

"  b  4  d  4  0  "  : 

lnt(rlJ) ♦  rl 

it  trc(rl3) >0;rl+l+rl3 

" rvA'l'L#  or  1 1  Kb  t'uR  rtf  : 

"b40bO"  : 

it  x  >2 ;  120/V  ItiJ  ♦r  1^;  y  tc  "K4U90" 
( u  1  ii ,  l»Kj+oO)/vlxi]*rl^ 

"k40?u"  : 
tl^/zd^rl^ 
mt  (c  1*)  ♦  tl 

it  ire(rla)>=. j;  r  l+l-*rl 
it  rl=U;l*rl 
r  1*  zO/bO+c 1 j 
1/r 1 j*rla 
it  ci*<l;l-»rl» 

"  R  4 1  u  0  "  : 


ii4 
ii  J 

1  2o 
227 

2  2  o 
22  j 
2  jo 
211 
2  12 
211 
ill 
2  db 
2  jo 
2  17 
211 
2  j  'j 


"  1  JiL.  WUi'i.  OC  KbUb.  Kbl^L).  (Kf) 

it  C  l  1 , 2J  =0;  0*k  l  a  ,  2  ,  a,L,wJ  ;  y  to  "loUSO" 

it  i  <  j  ;  (  a  IL,m]  *r  ly- 1)  *r  13+r  13*12  IK  ,  2,  n,L,  h] 

it  i>  2; tl3*  (ulLl/bO+l)*(X  *  tiy-1)  ♦i'(K,  2,h,  L,4'»l 

int  t k  l  r\ ,  2 ,  i'iJ  )  ♦rl 

it  tre(Tli\,2,ii,i>/iiJ)>U;rl+l-»TiK,2,ri,b,M 
jtc  "bbOOO" 

" k4  Z0o  "  : 

"Cal.  tin  l  it  t  Si' Mu  CAT": 

"liiiiL  onbbL  STAC.  -  ftl  SfriK.": 

it  1  =  1;  it  K=l;10U*rl4 

if  i=2;it  K  =  1 ;  b0-*rl4 

it  l<3;it  K=2;l00*rl4 

"IimI'IL  VO bY  toil  WT  SMK"  : 

otbl/r 14+1-rlb 

"bojl  o u L  STAC  -  <mT  S.'ik"  : 


24o 
i  4 1 

242 

243 

244 
24b 
240 
247 


0  *1 14 

it  1  =  1;  1L  K  =  1 ;  10  0  ■*  c  14 
it  1=1; it  K=2;Z0U*rl4 
it  l  =  2;it  K  =  l;bd  +  rl4 
it  1  =  2 ;  it  K  =  2;100»rl4 

"auol  VOL!  -  Vi K  Si'iK11  : 

vj  Il>1  /r  14+l*rib 

"rtM'i'b  Ob'  f  1  Kb  tUK  tor*  ui-ift"  : 


2  4b 
24  ) 
2  bO 


it  K  =  l;z*rlb 
it  K  =  2;l-»tly 

"TOIL  wUli  Ob  nt  KwUS  kbw"s 


2  bl 
2  b2 
2  13 
2b4 


r  lb+r  io«  (riy*A  IL,MJ  -1)  ♦TlK,  2,  tl,  L,M) 

"bbo  00 " : 

It  i\=l;  it  K  1 1 , 2 ,  ii ,  L ,  Ml  /  ( b*X  ( L  ,M  J  )  >3. 1 ;  1000»T  ( 1, 2  ,  il  ,  L  , 
it  b=2;il  T[2/2fh,L,Mj/(b*Xlt),Mj  }  >1 . 1 ;  1000  *P  {2,2,n,L, 


*22417 


3:  s 


Zbb: 
Zjo  : 

2b7: 
2  b<3 : 
2o'j : 
2b U  : 
2b  1 : 
262  : 
26  3 : 
26  4: 

20  b : 
26b: 
2  6/ : 
2o6 : 
26  9  : 
276  : 
2 7i  : 
2  72  : 
2  73  : 
274: 

21  j: 
z  7b : 
2  7  7: 
27b  : 
2  7  b : 
xbu  : 

2  b  1  : 

<.<3  2 : 
2o  3  : 
2o  4  : 
2  6  b : 
2b6  : 

237: 
Zbb : 
2o-J: 
2bU  : 

2yi  : 
2  v2 : 
2  J  3  : 

2^4: 
2  ^  j : 

2  b  o : 
2  >  7  : 
2b b : 

2  y  y : 

3b  0: 
3b  i  : 
3b  2 : 
3u  3: 
3o i  : 
JJ  b : 
*4.40 


"KbO  bO"  : 
next  i-l 
next  L. 
next  K 
nex  t  ti 

lmt  j/;wit  7U 1 
if 

it  '*=40;  2b ♦A 
it  w=bO ; b5-*-A 

trot  l,27x,"  voLUMo  up  Pine  TAfcLb  -  tiC  SMOKESCREEN;"  ,lx,c27 
wit  7U1. 1 ,  tl  $  l  A  ,  A  +  2  6  j 

tor  n=l  tc  2 

tmt  1 , "SCREEN  (M)  " ,cll2,z;  wrt  701 . 1,  A$  [1  ,  112) 
tint  1,/,"  MINUTES  "  ,  cl 12 ;  wr  t  701. 1,  ir«$  [1 , 112] 

lmt  1 , "  STABILITY  "  ,4 4x ,c3 , "  ram  HOWITZER  ",z;wrt  70 1 . 1 ,  b$  1 0  ,ti+2] 

l-»u 

4 

tor  a*l  tc  6 

tint  l,/,cy,z;wrt  701.1,0$(u,L>+Bj 
tor  L=1  to  7 
Lot  M=1  tc  4 

Lmt  1 ,  z ,  lx  ,  ti  .  0  ;  wr  t  701. 1 ,  R[K  ,  1  ,d ,  o,  to  J 

next  i»l 

next  L 

o+y  *u 

next  n 

tmt  1,2/; wrt  701.1 
next  K 

SC  "  ilbi’Lj  hC" 

tint  2,  21/;  wrt  701.2 

tmt  1 ,27x, " vOnuME  ot  t  IKE  TABLE  -  wP  SwOKL SCREEN  ;  "  ,  lx  ,  c27 
wrt  70 1 . 1 , n$ i A, A  +  2b J 

X  +  'U 

tor  t\~  1  tc  2 

tmt  1 , lbx , "screen (to) " ,c60 ; wr t  7U1 . 1, u§ [ 1 , B0 J 
tmt  l,16x,"  /i  1  nUTES  ",cB0;wrt  701 . 1, X$  1 1 , 80 j 

Lmt  1 ,  lbx  ,  "SXAciLATY"  ,  33x  ,C3  mm  liONlTZ LR" ,  z ;  wr  t  701.  1,0 $  [B  ,3  +  2) 
1+u 
4  *u 

tor  .i-l  to  0 

tmt  1 ,  /  ,  lbx  ,c9 ,  z;  wr  t  701.1  ,o$  [  U  ,  0  +  6  ] 

Lor  c=l  to  5 
tor  i-.=  l  to  4 

t.nt  1 ,  z ,  lx  ,  1 3. 0  ;  wr  t  701. 1  ,P [  X,  2  , ti,  L,  to] 
next  .4 
next  u 

U  +  b-*  L) 

next  ii 

lmt  1,2/; wrt  701.1 
next  tv 
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JUb  :  JEW  "nUi'ti  lif" 

Jo  7  :  Laic  1,12/; wet  701.1 
.Job:  " 

Jo  J  :  iiuxt  i 
-Jlo:  (iCt  "uokl" 

111:  on^. 

112:  "woi'tl  uC" : 

bll:  I.  ;c  t  1,4/;  we  t  7j1.1 

ll-,:  iL  i  =  l;<.jt_c  "  it  5  4  0  0  " 

Jlo:  il  i  =  "K330U " 

bio:  “ K j 4 0 0 “  : 

_>  1/ :  i.:iL  i,l5x,"  1.  CaLCuuaTLu  tOi<  ViSi/Lu  LIGHT  WAVELENGTHS :  0.4  TO  0.7" 

Ho  :  wi  t  7oi.l;lmt  2,  3dx  /'MlCROMLTEKS."  ;  wr  t  701.2 
3  1  :  L.r.t  1,/jv.it  701.1 
JLu  :  -jtc  "njoUU" 

12  J  :  "  n  1  j  0  0  “  : 

12/:  imt  1 , 1 5x ,  "  1 .  CALCuLATLll  t  OK  Rt,AR  1R  WAVELENGTHS:  .75  TO  2.5";wrt  701.1 
12  l :  Lmt  i  ,  30x  ,  "MiCR/i-iE  TuRS . "  ;  we  t  701.1 
J/4:  L.t,  C  i,/;v»rt  701.1 

12b:  "I'.buOU"  : 

J2o:  tail  l,35x,"2.  uni'A  Coi-.RU  TEL  In  NuMLER  Of  ROuRuS  FOR  yUARI'bftl  oiG  WIND. " 

J  2  7 :  wet  i u 1 .  1 

I/O :  tint  L,  JJx,"f  uR  CkuSowIrd  MULTIPLY  l'llb  EXTRACTED  WUM13EK  OF  ROUNDS" 

1 2  )  :  v/r  t  7 U  1 .  1 

1 10  :  tail  l,30x,":iY  U.7.rok  UEADVrfiRU  U:<  TAIL  MRU  CONDITION,  MULT  l  FLY" 

Mi:  wet  70  1.1 

112:  iait  L ,  3bx ,  "LATkACThu  nU.-RIEk  Jt  RODwDE  uY  2.6";wrt  701.1 
111:  I  .lie  1,/;weE  701.1 

334:  t.,!.L  1 ,  i  5x  ,  "3 .  wg.-iuEinS  ASSOCIATED  WITH  RASUUIEL  STABILITY  CATEGORY;" 

iId:  wrt  7ol.i;f.i»t  1 , 3  tix  v,l  w  J  SPEou  In  KNOTS. "  ;  we  t  701.1 
ilO:  Lull  1,  /  ;  we  t  701.1 

117:  Lr.it  l,l5x,"4,  ROUNDS  IN  SimDLD  ( SHORN  AS  $$$)AKEA  eXCLED  RATE  OF" 

1  3b  :  wet  7 0 1 . 1 

lib:  t.iit  l,iox,"rlR/  Ot  wEApun/OATTERY  .  "  ;  we  t  701.1 
14 u  ;  1  ;n  t  1 ,  /  ;  we  t  70  1 .  1 

141:  L.,iL  i,J5x,"5.  HliXUlEo  INDICATE  uuKATlON  Or  LFttCTI  v  l,  SMOKE."  ;  WEt  701.1 
142:  Eel 

14  1:  " —  i  l.S  .<  P"  : 

14  4:  L a.  c  1 , 4/  ;  w  e  t  701.1 
i4i:  il  l*l;vjtc  "K64ou" 
j4«:  il  l=2;tjtc  "NGboO" 

147:  "i<b4u0": 

14/  :  Lii.t  1 , 3  5x ,  "  1 .  CALCULATED  FOR  vISluLE  LlGt.T  WAVELENGTHS :  0.4  TO  0.7" 

14  A  :  wit  701.1;  Lmt  1 , 3  bx ,  "Ml  GEOMETERS.  "  ;  WE  t  701.1 
i5j:  Lmt  l,/;wet  7ol.l 
351:  jtc  "ruFoO" 

15/:  "iu>5JG": 

111:  L.nt  <.,33x,"l.  CALCULATED  FOR  NEAR  I R  wAV  ELEnG  TnS :  .75  To  2.5";wet  701.2 
1 1 4 :  iir.t  l,3ax,"MiCUOwETEU3.";wrt  701.1 
Jbl:  1  r.  t  I,/;  wet  701.1 
3  So:  "  XL  iJOO"  : 

*  o  1 7  o 
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